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

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.