Question

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

Answer 1

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

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

Answer 2

Да, особенно когда запускаешь такое оптимизированное чудо и оно висит, ожидая неизвестно чего.