Задача:
Написать операторы цикла с предусловием для вычисления четных степеней переменной x,начиная с x2 и до тех пор пока значение степени x не станет больше 104
program while_do;
uses crt;
var x,y:integer;
begin
clrscr;
while(x<=1e4) do begin writeln('Vvedite x ');readln(x);
y:=sqr(x);
writeln('y=',y);
end;
end.
eldar219, ты же тут не первый день - почему не уважешь правила? Смени название темы!!! (Правила Форума, п.4, и правила раздела, п.1)
По теме: замени тип integer на LongInt. И всегда при написании и отладке используй опцию Range Check - тогда вылавливать такие ошибки будет проще..