Составить программу вычисления суммы квадратов. у^2+x^2 (числа типа real)

Var x,y:real; 
begin 
read(x,y); 
writeln(sqr(x)+sqr(y)); 
end.

Намного проще и оптимизированнее :)