Написать программу в турбо паскаль. Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)

Question

Написать программу в турбо паскаль.
Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)

Answer 1

Var n,i:integer;
begin
n:=0;
for i:=1 to 4 do
n:=n+i;
writeln(n);
readln;
end.