Var x,y:integer;
begin
x:=25;
y:=-20;
while x*y<0 do begin
x:=x-5;
y:=y+2
end;
writeln('x=',x,' y=',y);
end.
// x = 0
// y = -10
Текстовый процессор может изменять шрифт удалять красить заменять сохранять форматировать и много много еще а редактор может только редактировать
27 - 1 ,28-4,29-4 привет гыыы