program qqq;
var x,y,s:real;
begin x:=0.3;
y:=-1.6;
s:=sqr(x)+sqr(y);
writeln(s=,s);
end.
если это две разные программы должны быть, то это 1-ая
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.