Помогите,нужно расписать как в Паскале:
Составить программу вывода на экран квадратов чисел от 1 до 10 с использованием оператора "while". (100 должна быть последняя цифра)

Program asd;
USES crt;
var i,n,s:integer;
BEGIN
n:=2;
While s<100   do   
 begin
    n:=n*2; 
    s:=n;       
Writeln(s);
 end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.