Решить.паскаль1)найти сумму целых двузначных чисел. 2)найти произведение целых чисел от 3 до n

1) var a,b,s :real;
begin
readln(a,b);
s:=a+b;
write(s);
end.
2)несовсем понятно
var a,n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
a:=3*i;
write(a);
end; end.