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

Question

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

Answer 1

Program chik;
var a,b,c,min:real;
begin
read(a,b,c);
min:=a;
if(b>min)then min:=b;
if(c>min)then min:=c;
writeln(min);
end.

Answer 2

Program chisla;
var a,b,c,max:real;
begin
readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (ac) then max:=b
if (awriteln(max);
end.

Comments

у меня нахождения максимума а у пользователя kage1998 минимума

---

да-да я согласен

---

вот теперь правильно

---

да

---

у нас программирование в курсе нет, но я сдаю ЕГЭ учусь до строк дошел

---

оно же проходиться с 8 по 9 класс