Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
<span>end.</span>
N=3 (три цвета прожектора)
i=4 (прожекторы)
A= N^i
A=3^4=81
var
a, b, c, d, z : integer;
begin
writeln('введите A B C D');
read(a);
read(b);
read(c);
read(d);
z := max(a, max(b+c, d+1));
writeln('z=', z);
end.
Ну, если ожог незначительный, то нужно сначала подставить обоженную часть под холодную воду, а после обработать или же просто нанести мазь на повреждённый участок. Ну, а если ожог: первой, второй и т.д. степени, то сразу же ко врачу.
Надеюсь, хоть чем-то помогла.