Question

пооооооооооооооомоооооогиииииите номер 7

Answer 1

for i:=1 to 3 do
writeln ('введите числа');
readln (n);
n:=sqr(n);
writeln (n);
end;
for i:= 1 to 3 do
writelm('введите числа');
readln (y);
y:=-1*(y*y*y*y);
end;
writeln (y);
end.