Тема: установка и конфигурация периферийного оборудования

Алгоритм приготовления яичницы: 1.начало 2.взять чистую сковороду 3.поставить сковороду на огонь. 4.налить немного масла 5.если масло разогрелось, то перейти к шагу 8 6.подождать 2 минуты 7.перейти к шагу 5. 8. разбить на сковороду 3 яйца 9. уменьшить огонь до минимума 10. посолить яичницу 11. накрыть сковороду крышкой (я люблю прожаренные и сверху) 12. подождать 7 минут. 13. снять сковороду с огня. 14. выложить яичницу на тарелку. 15. положить на тарелку по вкусу майонез, лук, колбасу и проч. 16. приятного аппетита! 17. конец

№1  var s,v,t,a: real;   begin  writeln('введите скорость, ускорение и время соотвественно');   read(v,a,t);   s: =v*t+(a*sqr(t))/2;   writeln('расстояние s = ',s);   end. №2 var a,b,c,d,m,n: integer;   begin  writeln('введите ширину и высоту комнаты');   read(a,b);   writeln('введите размеры окна');   read(c,d);   writeln('введите размеры двери');   read(m,n);   writeln('площадь стен для оклеивания обоями = ',a*b-c*d-m*n);   end. №3 var a,b: real;   begin  writeln('введите два числа');   read(a,b);   writeln('среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2);   writeln('среднее модулей этих чисел = ',sqrt(abs(a*;   end. №4 var x: real;   begin  writeln('введите ребро куба');   read(x);   writeln('площадь грани = ',sqr(x));   writeln('площадь полной поверхности = ',6*sqr(x));   writeln('объем куба = ',power(x,3));   end. №5 var r1,r2: real;   begin  writeln('введите внешний и внутренний радиус');   read(r1,r2);   if r1< r2 then writeln('внешний радиус должен быть больше внутреннего') else  writeln('площадь кольца = ', pi*sqr(r1)-pi*sqr(r2));   end.