даны 3 строки. определить в какой строке чаще встречаются цифры.

program zz1;

var s1, s2, s3:string; / / задаем перемененные строкового типа

i, k1, k2, k3:integer; / / задаем переменные целого типа

begin

write (' введите первую строку ');

readln (s1);

k1:=0;

for i:=1 to length (s1) do

begin

if (s1[i] = '1') or (s1[i] = '2') or (s1[i] = '3') or (s1[i] = '4') or (s1[i] = '5') or

(s1[i] = '6') or (s1[i] = '7') or (s1[i] = '8') or (s1[i] = '9') or (s1[i] = '0') then k1:=k1 + 1;

end;

write (' введите вторую строку ');

readln (s2);

k2:=0;

for i:=1 to length (s2) do

begin

if (s2[i] = '1') or (s2[i] = '2') or (s2[i] = '3') or (s2[i] = '4') or (s2[i] = '5') or

(s2[i] = '6') or (s2[i] = '7') or (s2[i] = '8') or (s2[i] = '9') or (s2[i] = '0') then k2:=k2 + 1;

end;

write (' введите третью строку ');

readln (s3);

k3:=0;

for i:=1 to length (s3) do

begin

if (s3[i] = '1') or (s3[i] = '2') or (s3[i] = '3') or (s3[i] = '4') or (s3[i] = '5') or

(s3[i] = '6') or (s3[i] = '7') or (s3[i] = '8') or (s3[i] = '9') or (s3[i] = '0') then k3:=k3 + 1;

end;

if (k1 > k2) and (k1 > k3) then write (' цифр больше в 1 строке ');

if (k2 > k1) and (k2 > k3) then write (' цифр больше в 2 строке ');

if (k3 > k2) and (k3 > k1) then write (' цифр больше в 3 строке ');

end.