Всмысле? Это вопрос вообще?
Кратчайшее кодовое слово для Р: 011. Решение - в прилагаемом файле.
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var eps:=1e-3; // точность
var (b,r):=ReadReal2('Введите сторону треугольника и радиус:');
if Abs(r-b*Sqrt(3)/6)<=eps then Writeln('Окружность можно вписать')
else Writeln('Окружность вписать нельзя')
end.
1.
<span>G23 относительная</span>
<span>$F$10
абсолютная</span>
<span>H$4
смешанная</span>
2.
=D3-C3
3.
в)
=$А$6+$7$С
4.
Смотрите №1
5.
=$A$5*B8
<span>
</span>
program z1;
var
s,w:integer;
begin
writeln('Введите число зубов Кузьки');
readln(s);
writeln('Введите число зубов бабы Дуси');
readln(w);
if s>w then writeln('У Кузьки зубов больше') else writeln('У бабы Дуси зубов больше')
end.
Подробнее - на Znanija.com - znanija.com/task/30754761#readmore