Напишите программу, определяющую сумму и количество первых n четных чисел

На Паскале вот:

var s, k, n: integer; {s - - сумма, k - - количество}

begin

writeln ('Введите число n') ;

readln (n) ;

k : = 0; s:=0;

while (k < n) do

begin

k:=k+1;

s:=s+2*k;

end;

writeln ('Сумма первых n чётных чисел равна ', s) ;

writeln ('Сюрприз-сюрприз, их количество равно ', n) ;

end.