Он форматирует весь ваш жёсткий диск!
Ответ:
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.
Объяснение:
1.предметы начинаются с "КО" 2.имена числительные 3.ряд натуральных чисел 4.чередование четных нечетных натуральных чисел 5.-
1)Лебедев
2)Рамеев
3)<span>Ершов
4)</span><span>Буш
5)</span><span>Энгельбарт
6)</span><span>Цузе
7)</span><span>Жаккард
8)</span><span>Паскаль</span>
Var a,S:integer;
Begin
Writeln("Введите сторону квадрата a");
Readln(a);
S:=sqr(a);
Writeln("Площадь квадрата S=",S);
readln;
end.