Question

Написать программу вычисления q и w, если q>w

Answer 1

program primer;
var
q,w,z: integer ;

begin
readln(q);
readln(w);
if q>w then
z:= q+w
else z:= q-w;
writeln (z);
end.