Написать программу в Pascal
Вывести на экран наибольшее из трех чисел

programm pr2; var a,b,c:real; begin read(a,b,c); if (a>b) and (a>c) then writeln (a) else if (b>a) and (b>c) then writeln(b) else writeln(c); end.

Program p_1;Uses Crt;var n1,n2,n3, max: integer;beginwrite('Введите 1 число: ');readln(n1);write('Введите 2 число: ');readln(n2);write('Введите 3 число: ');readln(n3);max:=n1;if n1<n2 thenmax:=n2;if n3>n2 thenmax:=n3;writeln('Наибольшее число: ',max);readln;end.