1. распечатать в "столбик" таблицу умножения на число n(значение n ввести с клавиатуры; 1< =n< =9) 2. дано натуральное число n. найти сумму n^2+(n+1)^2++(2n)^2 все решить на паскале,

1)
var a,b:integer;
beginwriteln('введите число');
read(a);
for b:=1 to 9 do
begin
writeln(a,'*',b,'=',a*b);end;
end.
2)    
var a,b,c:integer;
beginwriteln('введите число');
read(a);
c:=0;
for a:=a to (a*2) do
begin
c:=sqr(a)+c;
end;
writeln(c);
end.