Var s, n: integer; begin
s:= 72;
n:= 0;
while n < =10 do
begin
s:= s – 8;
n:= n + 3;
end;
writeln(s);

acivnatala    1   28.10.2021 22:40    2