Напишите программу в pascal abcДля первых n двузначных натуральных чисел вывести суммы цифр каждого числа

program z1;
var s,n,x,i:integer;
begin
x:=10;
writeln('введите n');
readln(n);
for i:=1 to n do
begin
s:=x div 10+x mod 10;
write(s,' ');
x:=x+1;
end;
end.