По вопросам: если вопрос что делать? То на конце мягкий знак, а если что делает и т. д. то значит без мягкого знака.
№ 9 не знаю((((((((((((((((((((((((((((((((
Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625
Что нужно сделать то? Схему нарисовать, или программу написать?