VAR a,b:integer;
x:real;
begin
writeln(' a=');
readln(a);
writeln ('b=');
readln (b);
x:=-b/a;
if a =0 then writeln('uravnenie korney ne imeet')
else
writeln('korni uravneniya=',x);
readln;
<span>end.</span>
Если правильно понял задание то как то так:
Флешка, жесткий диск, дискета, диски.
<span>Программа, относящаяся к прикладному программному обеспечению:
</span><span>1) AutoCAD</span>