Var d,a: integer;
begin
write('Диаметр пробоины: ');
readln(d);
write('Сторона куска фанеры: ');
readln(a);
if a>d then writeln('Пробоину можно заделать')
else writeln('Пробоину заделать нельзя');
end.
Пример:
<span>Диаметр пробоины: 5
Сторона куска фанеры: 6
Пробоину можно заделать</span>
Program z1;
var a,b,c,p:double;
begin
readln(a);readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln(p);
readln
end.
<span>X -переменная с реальным типом.А у тебя она integer.
</span>