var i,a,b,c:integer;
begin
write('Введите число A: '); read(a);
write('Введите число B: '); read(b);
write('Введите число C: '); read(c);
if a > b then i := a else i := b;
if c > i then i := c else i := i;
write('Самое большое число из 3 чисел = ',i);
end.
program znanija;
var
a,b,c:real;
begin
writeln('Введите три числа');
readln(a,b,c);
if ((a>c) and (c>b))or ((a>b) and (b>c)) then
writeln('Максимальное число ',a);
if ((c>a) and (a>b))or ((c>b) and (b>a)) then
writeln('Максимальное число ',c);
if ((b>a) and (a>c))or ((b>c) and (c>a)) then
writeln('Максимальное число ',b);
end.
