Напишите наибольше целое число х для которого истинно высказывание (x<70) или не (x<80)

Program zadacha; const pi=3.14; uses crt; var s,r,l,v,h: real; begin clrscr; write ('vvedite visoty: '); readln (h); write ('vvedite radius: '); readln (r); write ('vvedite obrazujuschujy: '); readln (l); s: =pi*r*l; v: =pi*r*2*h/3; writeln ('ploschad ravna=', s: 3: 2); writeln ('objem raven=', v: 3: 2); readln; end.

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.