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

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.

Эх.. это же надо суметь так длинно написать! )))