Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10.

[lizka6011997]

Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10.

задача на цикл while

[PathTheir]

Read(a);
while a <> 7 do begin
    if a > 10 then WriteLn(Sqr(a));
    Read(a);
end;