Имеется четыре произвольных числа abcd, которые вводятся с клавиатуры.программа должна давать ответ на вопрос правда ли что: первое число самое большое?

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

Type txy = record x, y: real end; function sqt(a, b, c: txy): real; begin   sqt: =abs((a.x-b.x)*(c.y-b..y-b.y)*(c.x-b.x))/2; end; const   eps=1e-4;   o: txy = (x: 0; y: 0); var   a, b, c: txy;   s1, s2, s3: real; begin   write('введите координаты вершин треугольника: '); readln(a.x,a.y,b.x,b.y,c.x,c.y);   s1: =sqt(o,a,b); s2: =sqt(o,b,c); s3: =sqt(o,a,c);   write('центр координат лежит ');   if abs(s1)< eps then writeln('на стороне ab')   else if abs(s2)< eps then writeln('на стороне bc')   else if abs(s3)< eps then writeln('на стороне ac')   else if abs(s1+s2+s3-sqt(a,b,c))< eps then writeln('внутри треугольника')   else writeln('вне треугольника'); end.

Var    i,sum,col: integer;   begin      for i: =-30 to 30 do      begin            if i mod 3 = 0              then                  begin                      inc(col);                       inc(sum,i);                   end;               end;     write(sum,' ',col);   end.