Выдает ошибку: "Нет перегруженной подпрограммы с такими типами параметров" на строку "while s<>k"
var s, s1, s2:string;
i, ss1, ss2, err, k:integer;
begin
read(s);
i:=0;
k:=0;
while s<>k do
begin
Kaprekara(s, s1, s2);
val(s1, ss1, err);
val(s2, ss2, err);
k:=ss1-ss2;
inc(i);
end;
writeln(k);
end.

hitecheldo155    3   16.03.2020 06:25    0