Конкретный вариант:
uses crt;
var x:<em>real</em>;
begin
x:=21.17;
writeln((5*x+0.36)/(0.77+sqr(x)):3:3);
<span>end.
</span> Более универсальный:
uses crt;
var x:<em>real</em>;
function y(a:<em>real</em>):<em>real;</em>
begin
writeln(((5*x+0.36)/(0.77+sqr(x))):3:3);
end;
begin
read(x);
y(x);
end.
Var d,a: integer;
begin
write('Диаметр пробоины: ');
readln(d);
write('Сторона куска фанеры: ');
readln(a);
if a>d then writeln('Пробоину можно заделать')
else writeln('Пробоину заделать нельзя');
end.
Пример:
<span>Диаметр пробоины: 5
Сторона куска фанеры: 6
Пробоину можно заделать</span>