Ответ:
var
r1, r2, r3: real;
begin
readln(r1, r2, r3);
if (r1>=r2) and (r1>=r3) then
writeln(r1)
else if (r2>=r1) and (r2>=r3) then
writeln(r2)
else
writeln(r3);
end.
Объяснение:
<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
1-крик
2-барабан
3-интернет
4-почта
5-телефон
6-костер
7-телевизор
8-радио
9-морзе
10-приемник