Напишите программу, определяющую сумму и количество первых 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.