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

[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