Написать программу в Pascal, с оператором while и doНайти сумму всех n-значных чисел, если 1 ≤ n ≤ 4

program zz1;

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

begin

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

read (n);

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

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

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

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

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

end.