Program gt;
var a,b,c,max:real;
begin
readln(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
writeln(max);
end.
Если я правильно понял, то:
program x;
var x,y,a;
begin
readln(x,y);
if x < y then
begin
a:=x;
x:=y;
y:=a;
end;
writeln(x,y);
end.
Три вопроса:
назовем поезда а, б, в
1)а отходит после б? Если нет, то а раньше б, переход ко второму вопросу. Если да, то порядок *аб*,переходим ко второму вопросу
2)а отходит после в? если да, то порядок такой: ваб. Если нет, то а первый
3)а - первый. Тогда спрашиваем: в отходит после б? если да, то абв, если нет, то авб
Рпоа рьдрпелрсоплркчоле\цчлопдрпопрчолрпеодлкы