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

На Паскале вот:
var s, k, n: integer; s -- сумма, k -- количество
begin
writeln('Введите число n');
readln(n);
k := 0; s:=0;
while (k lt; n) do
begin
k:=k+1;
s:=s+2*k;
end;
writeln('Сумма первых n чётных чисел одинакова ', s);
writeln('Сюрприз-сюрприз, их количество одинаково ', n);
end.