1.
var a,b,i,n,min:integer;
begin
writeln('Input value');
read(a);
min:=a;
for i:= 1 to 2 do begin
writeln('Input value');
read(a);
if min>a then min:=a;
end;
writeln('min = ',min);
<span>end.
2.
var a,b,c:integer;begin
writeln('Input a');
read(a);
writeln('Input b');
read(b);
writeln('Input c');
read(c);
a:=a*b*c;
writeln('prod = ',a);
end.<span>
</span></span>
Перевод из бит в мегабайт в с :
80*10^20 бит в секунду = 0.00001 мегабайт в секунду
перевод 1 м 20с в секунды : 80с
находим файл : 80с * 0.00001 мегабайт в секунду = 0,0008 мегабайт
1) интер 2) стрил алт Т и Ф3
Ем я уголь, пью я воду,
Как напьюсь- прибавлю ходу.
Везу обоз на сто колес
И называюсь...
(паравоз)