Найти максимальный элемент одномерного массива из 30 элементов

Var ar: array[1..30] of integer; i,max: integer; begin; randomize; writeln('array'); for i: =1 to 30 do begin; ar[i]: =random(1,100); write(ar[i]: 4); end; for i: =1 to 30 do if max< ar[i] then max: =ar[i]; writeln; writeln('result: ',max); end.

значит полторы курицы за день одно яйцо

значит одна курица за день 2/3 яйца

 

работу с файлами я не помню, буду писать через консоль

 

var k,d: integer;

ja: real;

begin

  read(k,d);

  writeln(round(2*k*d/3));

end.