Question

По заданной блок-схеме записать программу для решения задачи.

Answer 1

var x,y,s:integer;
begin  
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=',x,' y=',y,' s=',s);
end.