РЕЕЕЕБЯЯЯЯЯЯТАААААА, ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!ЗАВТРА Теснее СДАВАТЬ!!!!!!!!!!!!!PASCAL

я не знаю, меня не было, вроде да.

ромбик это вроде while и do

светло

громадное тебе спасибо )))))))))))))

там в 1 не integer а real

да, точно, прости

во втором ошибку выводит

и в 4 тоже

поправил : )

вот сейчас точно, ОГРОМНОЕ ТЕБЕ СПАИБО, ТЫ Превосходнейший!!!!!))))))))))))))

Program n1;
var x,y:real;
begin
x:=2;
y:=81;
while(ygt;3) do begin
y:=y/3; x:=x+y;
end;
writeln(x);
end.

program n2;
var x,y,z:integer;
begin
x:=5;
y:=17;
z:=y div x;
while (zlt;31) do begin
x:=(x+y) mod 7; z:=z+5;
end;
writeln(x);
end. 

program n3;
var a,b,c:integer;
begin
a:=10;
b:=7;
c:=-1;
while(cgt;(b-a)) do begin
 if ((a-b)gt;5) then begin  c:=c-2; a:=a-1; end
else begin c:=c+3; a:=a-c; end;
end;
writeln(a);
end.

program n4;
var x,y:integer;
begin
x:=12;
y:=2;
while (xlt;12) do begin
 if (ylt;=x) then begin x:=x-3; y:=y*2; end
 else begin y:=y-3; x:=x*y; end;
end;
writeln(x);
end.