Question

помогите с алгоритмом

Answer 1

Привет, если я правильно понял задания тогда должно быть вот так
А=-20

Answer 2

var a,b:integer;
begin
a:=50;
b:=60;
if a>b then
b:=b+a
else
a:=a-b;
a:=a*2;
write (a);

end.

Answer 3

var a,b:integer;
Begin  a:=50;  b:=60;    if a>b then b:=b+a   else a:= a-b;  a:= a * 2;  Writeln(a);
End.