Кестені безендіруде қолданылған фрагмент атауы

Бенистен і колғанауы  нылдіруде  кестені ішак фрагмент мында  қолда  сосун  атауы.

var

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

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.

 

Program is_ev_2d; var n: integer; begin   write('введите число: ');   readln(n);   if (n mod 2 = 0) and (n > 9) and (n < 100) then     writeln(n, ' чётное двузначное')   else      writeln(n, ' не чётное двузначное') end.