Дано А,B, C. Сравнит и найти наибольшую. Составить программу

Question

Дано А,B, C. Сравнит и найти наибольшую. Составить программу

Answer 1

Var a,b,c,max: Integer;
begin
writeln('Введите a,b,c');
readln(a,b,c);
max:=a;
if maxif maxwriteln('Наибольшее число: ',max);
end.