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

Var
   A,V:real;
Begin
Write('a = ');
ReadLn(V);
Write('b = ');
ReadLn(A);
if A>V then V:=A;
Write('b = ');
ReadLn(A);
if A>V then V:=A;
WriteLn('Max(a,b,c) = ',V);
End.

Var
    a, b, c: integer;

begin
    writeln('Вводим числа');
    readln(a, b, c);
    
    if a < b then a := b;
    if a < c then a := c;
    writeln('Max = ', a);
end.