1 задача

[maks22]

Найти наибольшее из трех данных чисел.LAZARUS помогите срочно надо,заранее спасибо

[whatever]

Сообщение от wikipedia

Lazarus — свободная среда разработки программного обеспечения для компилятора Free Pascal. Интегрированная среда разработки предоставляет возможность кроссплатформенной разработки приложений в Delphi-подобном окружени

Три числа сравнить на паскале чтоле?

VAR
  m:array[1..3]of real;
  i:integer;
  max:real;
BEGIN
for i:=1 to 3 do
  begin
    write('Число ',i,': ');
    readln(m[i]);
    if i=1 then max:=m[i]
    else
      if m[i]>max then max:=m[i];
  end;
  writeln('Максимальное число: ',max);
readln
END.

[Serge_Bliznykov]

function Max2(X,Y : integer) : integer;
begin
  if X>Y then Max2:=X else Max2:=Y;
end;

var A,B,C : integer;
begin
   Readln(A,B,C);
   WriteLn('max=',Max2(A, Max2(B,C)));
end.

[maks22]

спасибо,Да сравнить 3 числа,а есть варианты решения еще?

[Sab_zero]

Какой еще тебе вариант нужен?
тебе предложили 2 варианта.чем они тебя не устраивают?

[maks22]

все нормально,спасибо всем

[Вадим Мошев]

А я ещё решение знаю.
Оно аналогично работе с массивами. Функционал такой:

max:=a;
if b > max then max:=b;
if c > max then max:=c;

Только и всего.