Question

Срочно, прошу помочь. Работать нужно с ABC PASCAL. Мне нужна программа ( INTEGER,VAR, REAL, PROGRAM) что бы все было, и закночить таблицу. Начать нужно со второго примера. Можете нарисовать и скинуть фотку, но пожалуйста сделайте

Answer 1

Program p1;
var x,y:integer;
begin
readln(x,y);
while x<16 do
begin
if (x>y) then
begin
x:=x-2;
y:=y+4;
end
else
begin
x:=x+5;
y:=y-3;
end;
writeln(x,' ',y);
end;
end.
----
Третью отправлю файлом как напишу.