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

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

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.