var x:real;
begin
readln(x);
if (x<5)and(x>0) then writeln('prinadlejit') else writeln('ne prinadlejit');
end.
Жирный, курсив, зачеркнутый, подчеркнутый, подстрочный, надстрочный
12)б
13)б
14)а
15)а
16)в
17)а
18)в
19)б
20)б
21)в
22)б
23)б
10) 4
5) возможно имеется в виду BIOS
Const
N = 5; {количество спортсменов}
var
K : array [1..N] of integer;
i, max : integer;
begin
for i := 1 to N do
begin
write('Результат спортсмена номер: ', i, ': ');
readln(K[i]);
end;
max := K[1];
for i := 2 to N do
if K[i] > max then
max := K[i];
writeln('Максимальный результат: ', max);
end.