При каком значении переменной а переменная s=3?
readIng(a);
s:=0;
while a>0 do begin
a:=a-1;
s:=s+1;
end;

Masha07041    1   31.03.2020 10:59    2