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

program n1;

var n,i: integer;

begin

readln(n)

i: =2

while i< =n*2 do

begin

write(i,' ');

i: =i+2;

end;

end.

Freepascal ver 1.0.12 program znanija; var ax, ay, bx, by : integer;       c, d, p : real;   begin   writeln('введите через пробел координаты точки а и нажмите enter'); readln(ax, ay);     writeln('введите через пробел координаты точки в и нажмите enter'); readln(bx, by);       c: =sqrt(sqr(bx-ax)+ sqr(by-ay));         writeln('площадь квадрата', sqr(c): 10: 2);         p: =c*4;       writeln('периметр квадрата', p: 10: 2);     d: =sqrt(sqr(c)*2);   writeln('диагональ квадрата', d: 10: 2);   readln   end.

Написали бы язык программирования. вот на java. import java.io.bufferedreader; import java.io.ioexception; import java.io.inputstreamreader; public class znanie { public static void main(string[] args) throws ioexception { bufferedreader reader=new bufferedreader(new inputstreamreader(system.in)); long a=long.parselong(reader.; long b=long.parselong(reader.; if((a< 0)||(b< 0)){ system.exit(0); } long sum=0; for (long i = a; i < = b; i++) { if((i%5==0)||(i%13==0)){ sum=sum+i; } } system.out.println(sum); }}