Написать программку в Pascal, с оператором while и doНайти сумму всех

program zz1;

var s, n, i:integer; // задаем переменные целого типа

begin

write( введите n );  // вводим с клавиатуры число

read(n);

if n = 1 then begin i:=1;while i lt; 10 do begin s:=s + i;i:=i + 1;end;end;

if n = 2 then begin i:=10;while i lt; 100 do begin s:=s + i;i:=i + 1;end;end;

if n = 3 then begin i:=100;while i lt; 1000 do begin s:=s + i;i:=i + 1;end;end;

if n = 4 then begin i:=1000;while i lt; 10000 do begin s:=s + i;i:=i + 1;end;end;

write( сумма , n, значных чисел = , s); //выводим ответ

end.