Question

напишите программу по блок схеме​

Answer 1

program raf105;

var x,y,S: integer;

begin

write('Ввод: ');

readln(x,y);

if x>y then

 begin

   x:= x-10;

   y:= y+24;

 end

else

 begin

   x:= x+5;

   y:= y-7;

 end;

S:= x-y;

writeln('Вывод: ',x,' ',y,' ',S);

end.

 

Язык  PascalABC