Запишите if then else для решения задачи: найти сумму s двух чисел m и n, если эти числа...

Question

Запишите if then else для решения задачи: найти сумму s двух чисел m и n, если эти числа равны, в противном случае найти r -- разность m и n

Answer 1

Program pr1;
VAR m, n, s, r: Real; {Если вдруг пользователь введет не целое число}
BEGIN
Readln(m, n);
if (m=n) then begin S:=m+n; Write(s); end;
else begin r:=m-n; Write (r); end;
END.