пожалйста помогите, задачка Опции

[eldar219]

Задача:
Написать операторы цикла с предусловием для вычисления четных степеней переменной x,начиная с x² и до тех пор пока значение степени x не станет больше 10⁴

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.

Проблема в том,что при вводе например числа 100000 или 453847,и еще др. чисел,программа пишет ответ с минусом и при написании 100000 или 10000 пролграмма выдает другое значение,не то значение которое получается при возведении в квадрат

Плизз помогите мне исправить ошибку

Сообщение отредактировано: eldar219 - 9.03.2010 0:27

[Lapp]

eldar219, ты же тут не первый день - почему не уважешь правила? Смени название темы!!! (Правила Форума, п.4, и правила раздела, п.1)

По теме: замени тип integer на LongInt. И всегда при написании и отладке используй опцию Range Check - тогда вылавливать такие ошибки будет проще..