Написать программу ** паскале

Question

Написать программу на паскале

---

Comments

В первом случае + или - ?

---

Переменные r и z или только r?

---

только r

---

так как

---

В первом случае + или -

---

А, ну да..

Answer 1

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017

begin
  var x,y:real; Read(x,y);
  var r:=(x>=y?x*x-y*y:x*x+y*y); Writeln(r)
end.

Answer 2

Program prog;
Uses crt;

var x,y,r: real;

begin
clrscr;

write('x = ');
readln(x);

write('y = ');
readln(y);

if (x>=y) then
r:=sqr(x)-sqr(y)
else
r:=sqr(x)+sqr(y);
writeln('r = ',r:0:3);
readln;
end.