For i:=n downto 1 do write (mas[i], ' ');
n - количество чисел в массиве
var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.
Var
a: integer;
begin
readln(a);
if (a mod 3 = 0) or (a mod 10 = 4) then
writeln('Да')
else
writeln('Нет')
<span>end.</span>
16 букв можно закодировать 4-мя битами, т.к. 2^4=16