Вычисли значение y:
var n, y:integer;
begin
y:=0;
n:=2;
repeat
y:=y+2;
n:=n+1;
until n<8
writeln (y)
end.

андрей2149    1   29.04.2020 14:55    2