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

program zadacha2; uses crt; var i,n,a: integer; b,y,c,l: real;beginclrscr;readln(n); a: =1; b: =2; c: =5; for i: =1 to n do begin if a mod 2 = 0 thenl: =a+b/celse l: =a-b/c;a: =a+1;b: =b+2;c: =c+5;y: =y+l; end;writeln(y: 2: 2);readkey; end.