Вы - волшебник на голубом вертолете, определите самое большое из ваших N эскимо и бесплатно подарите его грустному водяному.

Формат входных данных
С клавиатуры вводится 1 ≤ N ≤ 1000

Далее N целых положительных чисел ≤ 10000. (Каждое в отдельной строке)

Формат выходных данных
Целое положительное число, равное большему из всех введенных

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.

(a*h)+(b*h)+(a*h)+(b***h3)

или

2*(a*h)+2*(b***h3)

если на 1 кв метр 200 грамм  то 

(2*(a*h)+2*(b***h3))*200=        ответ будет  в граммах

расход обычно указывается на кв  метр : )   

program num1; uses crt; var a,b,c : real; begin clrscr; write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a=b) or (b=c) or (c=a) then write ('высказывание < среди трех данных целых чисел есть хотя бы одна пара > истино') else write('высказывание < среди трех данных целых чисел есть хотя бы одна пара > ложно'); end.

const n=5; var a: array [1..n] of real; i: integer; begin for i: =1 to n do begin readln(a[i]);                         if i mod 2=1 then a[i]: =sqr(i);                         writeln(i,' элемент массива равен : ',a[i]);                         end; end.