ПОМОГИТЕ СРОЧНО Надобно!!!Записать в тетради программу, которая выводит на экран наибольшее

program znanija;

var

a,b,c:real;

begin

writeln('Введите три числа');

readln(a,b,c);

if ((agt;c) and (cgt;b))or ((agt;b) and (bgt;c)) then

writeln('Наибольшее число ',a);

if ((cgt;a) and (agt;b))or ((cgt;b) and (bgt;a)) then

writeln('Наибольшее число ',c);

if ((bgt;a) and (agt;c))or ((bgt;c) and (cgt;a)) then

writeln('Наибольшее число ',b);

end.

var i,a,b,c:integer;

begin

   write('Введите число A: '); read(a);

   write('Введите число B: '); read(b);

   write('Введите число C: '); read(c);

   if a gt; b then i := a else i := b;

   if c gt; i then i := c else i := i;

   write('Самое великое число из 3 чисел = ',i);

end.