Основная формула
R=rуд * l / s
program 111;
const rud=0,0175; {Ом*мм2/м}
var r,l,s:double;
begin
writeln('Цапратиффление шо нуна Ом'); Read(r);
writeln('Плосчадь сычения провода шо езть мм^2'); Read(s);
l:=(R*s/rud)*1000;
if l> 1000 then writeln('До х-я')
else writeln('Нуна ',l ' мм провода');
end.