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

program zadacha2;

uses crt;

var i, n, a: integer;

b, y, c, l: real;

begin

clrscr;

readln (n);

a: = 1;

b: = 2;

c: = 5;

for i: = 1 to n do

begin

if a mod 2 = 0 then

l: = a+b/c

else

l: = a-b/c;

a: = a+1;

b: = b+2;

c: = c+5;

y: = y+l;

end;

writeln (y: 2: 2);

readkey;

end.