Ответ:

program qq1;

uses crt;

var lo,do1,xl,xd,l,d:integer;

begin

lo:=10;

do1:=5;

write('vvedi dopustimuyu pogreshnost dliny: ');

read(xl);

write('vvedi dopustimuyu pogreshnost diametra: ');

read(xd);

write('vvedi dlinu:');

read(l);

writeln('vvedi diametr:');

read(d);

if (l>=lo-xl) and (l<=lo+xl) then

writeln('dlina sootvetstvuet')

else

writeln('dlina ne sootvetstvuet');

if (d>=do1-xd) and (d<=do1+xd) then

writeln('diametr sootvetstvuet')

else

write('diametr ne sootvetstvuet');

readln;

readln;

end.

надеюсь я правильно понимаю