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

Question

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

Answer 1

Var a,b,c:real;beginWrite('Введите первое число:');readln(a);Write('Введите Второе число:');readln(b);Write('Введите Третье число:');readln(c);if (a>b) and (a>c)then
Writeln('Ответ:',a)elseif (b>a) and (b>c)then
Writeln('Ответ:',b)elsewriteln('Ответ:',c);

readln;end.

Comments

var a,b,c:real;
begin
Write('Введите первое число:');
readln(a);
Write('Введите Второе число:');
readln(b);
Write('Введите Третье число:');
readln(c);
if (a>b) and (a>c)then

Writeln('Ответ:',a)
else
if (b>a) and (b>c)then

Writeln('Ответ:',b)
else
writeln('Ответ:',c);

readln;
end.

---

так удобнее