Написать код в лазарусе

составьте программу определения большего из трех чисел

Var a, b, c, max: real;

begin writeln ('Введите первое число: ') ; readln (a) ; writeln ('Введите второе число: ') ; readln (b) ; writeln ('Введите третье число: ') ; readln (c) ; max : = 0; if a > = max then max : = a; if b > = max then max : = b; if c > = max then max : = c; writeln ('Наибольшее число: ', max) ; end.

var a, b, c, max:integer;

begin

readln (a, b, c) ;

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

if c>max then max:=c;

writeln ('max = ', max) ;

end.

Пример:

15 48 34

max = 48