нужно найти значение алгоритма, подставляя под "а"
begin
readln (a);
b:=15+a;
if a mod 25 > 10 then b:= b+50;
for i:=2 to 4 do begin
if a mod i = 0 then a:=a+a mod 10
else a:= b+b div 10;
writeln (a,b)
end;
writeln(a+b);
end.

kirra00787p07znc    1   10.11.2020 14:15    1