)
составить блок-схему и написать программу на языке pascal. по данным некоторого количества предприятий ( номер предприятия , количество работающих на предприятии и фонд заработной платы) проводится сопоставительный анализ средней заработной платы на предприятии. средняя заработная плата предприятия (si) рассчитывается по формуле: si = fi/ki fi- фонд заработной платы i-го предприятия; ki- количество работающих на i-м предприятии; для сравнительного анализа можно использовать среднюю заработную плату по группе предприятий и среднюю зарплату предприятия.

Onajonm: существует несколько типов оптических дисков: cd-диски – для записи и считывания информации с них используется инфракрасный лазер, на cd-диск может быть записано до 700 мбайт информации; dvd-диски – имеют значительно большую информационную емкость, чем сd-диски, так как для записи и считывания информации с них используется лазер с меньшей длиной волны и оптические дорожки на них имеют меньшую толщину и размещены более плотно. на одной стороне dvd-диска умещается 4,7 гбайт информации, но бывают диски двухслойные, тогда объем может достигать 8,5 гбайт. в оптических дисководах используется оптический принцип записи и считывания информации. информация на оптическом диске хранится на одной спиралевидной дорожке, идущей от центра диска к периферии и содержащей чередующиеся участки с плохой и хорошей отражающей способностью.

Program project1777;
uses  math,  Classes ;
 var   x,y,z:integer; 
 begin     
  writeln('vedite 1 chislo');readln(x);   
  writeln('vedite 2 chislo');readln(y); 
   writeln('vedite 3 chislo');readln(z); 
   begin
     if ((x>y) and (x>z)) then     writeln('samoe bolshoe chislo ',x) 
   else   
  if ((y>x) and (y>z)) then     writeln('samoe bolshoe chislo ',y)   
 else 
   if ((z>x) and (z>y)) then  
 writeln('samoe bolshoe chislo ',z); 
    end;     
begin   
  if ((x<y) and (x<z)) then 
   writeln('samoe malenkoe chislo ',x)
     else 
   if ((y<x) and (y<z)) then   
 writeln('samoe malenkoe chislo ',y) 
   else   
 if ((z<x) and (z<y)) then 
   writeln('samoe malenkoe chislo ',z);
     end;
   readln;
   end.