Программа кумир в эвм поступают результаты соревнований по плаванию для 3-х спортсменов. составьте программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победителя заплыва.

Алг  нач вещ а,б,с,мин вывод "введите результат первого  " ввод   а мин: =а вывод "введите результат второго  " ввод   б если мин> б то мин: =б все вывод "введите результат третьего  " ввод   с если мин> с то мин: =с все вывод "результат победителя заплыва: ",мин кон

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.

 

 

 

Var a,b,c,t: integer; begin   read(a,b,c);   writeln('a': 4,'b': 4,'c': 4);   writeln(a: 4,b: 4,c: 4);   t: =a;   writeln(a: 4,b: 4,c: 4);   a: =c;   writeln(a: 4,b: 4,c: 4);   c: =b;   writeln(a: 4,b: 4,c: 4);   b: =t;   writeln(a: 4,b: 4,c: 4); end.