Напечатать списки водителей, перевыполнивших план более чем на 5%

program Plan;
 
var
    F:array[1..10] of string;
    S:array[1..10] of integer;
    PL, i: integer;
    pr: real; //Проценты от плана
begin
  PL:= 2500;  //План
 //вычисление значение с процентами
  pr:= PL + (PL * 5 /100);
 //Заполнение массива с фамилиями
  F[1]:='Antonov';
  F[2]:='Berikov';
  F[3]:='Popov';
  F[4]:='Petrov';
  F[5]:='Ivanov';
  F[6]:='Sidorov';
  F[7]:='Kondrat';
  F[8]:='Svistunov';
  F[9]:='Lopuxov';
  F[10]:='Petuxov';
  //Заполнение массива выручкой за смену и вывод на экран
  for i:= 1 to 10 do begin
    S[i]:= random(5000);
    Writeln('Viruchka za smenu u ', F[i], ' = ', S[i]);
    end;
  //Нахождение фамилий с не выполнением и перевыполнением плана
  for i:= 1 to 10 do  begin
    if S[i] > pr then
      Writeln(F[i], ' perevipolnil plan');
    if S[i] < PL then
        Writeln(F[i], ' ne vipolnil plan');
 
    end;
   Readln;
end.

program Premiya;
 
 var
    F:array[1..10] of string; //массив фамилий
    Z:array[1..10] of integer; //массив зар. платы
    PR:array[1..10] of integer;  //массив выполнения плана
    FPRm: array[1..10] of real; //результирующий массив премий
    FPR, i, t: integer;
    max: real;
 
begin
  FPR:= 10000;  //Премия
  max:= 0;
  t:= 0;  //Переменная для хранения индекса с макс премией
 
 //Заполнение массива с фамилиями
  F[1]:='Antonov';
  F[2]:='Berikov';
  F[3]:='Popov';
  F[4]:='Petrov';
  F[5]:='Ivanov';
  F[6]:='Sidorov';
  F[7]:='Kondrat';
  F[8]:='Svistunov';
  F[9]:='Lopuxov';
  F[10]:='Petuxov';
 
 //Заполнение массивов зар. платы и процентов плана
  for i:= 1 to 10 do begin
    Z[i]:= random(10000)+1000;
    PR[i]:= random(100)-20;
    end;
 
 //Распределение премии
  for i:= 1 to 10 do  begin
    if Z[i] > 0 then
      FPRm[i]:= FPR*100/Z[i]
    else FPRm[i]:= 0;
 //Нахождение фамилии с максимальной премией
    if FPRm[i] > max then  begin
      max:= FPRm[i];
      t:= i;
      end;
    end;
 
 //Вывод на экран данных
   for i:= 1 to 10 do
    Writeln('Sotrudnik ', F[i], ' zar. plata= ', Z[i], ' plan %= ', PR[i], ' premiya= ', FPRm[i]:2:2);
 
 //Вывод  фамилии с маскимальной премией
    Writeln('Samaya bolwaya primiya u = ', F[t]);
   Readln;
end.

program Premiya;
 
 var
    F:array[1..10] of string; //массив фамилий
    Z:array[1..10] of integer; //массив зар. платы
    PR:array[1..10] of integer;  //массив выполнения плана
    FPRm: array[1..10] of real; //результирующий массив премий
    FPR, i, t, sum: integer;
    max: real;
 
begin
  FPR:= 10000;  //Премия
  max:= 0;
  t:= 0;  //Переменная для хранения индекса с макс премией
  sum:= 0;
 
 //Заполнение массива с фамилиями
  F[1]:='Antonov';
  F[2]:='Berikov';
  F[3]:='Popov';
  F[4]:='Petrov';
  F[5]:='Ivanov';
  F[6]:='Sidorov';
  F[7]:='Kondrat';
  F[8]:='Svistunov';
  F[9]:='Lopuxov';
  F[10]:='Petuxov';
 
 //Заполнение массивов зар. платы и процентов плана
  for i:= 1 to 10 do begin
    Z[i]:= random(10000)+1000;
    PR[i]:= random(100)-20;
    sum:= sum + Z[i];
    end;
 
 //Распределение премии
  for i:= 1 to 10 do  begin
    if Z[i] > 0 then
      FPRm[i]:= (FPR/sum) * Z[i]
    else FPRm[i]:= 0;
 //Нахождение фамилии с максимальной премией
    if FPRm[i] > max then  begin
      max:= FPRm[i];
      t:= i;
      end;
    end;
 
 //Вывод на экран данных
   for i:= 1 to 10 do
    Writeln('Sotrudnik ', F[i], ' zar. plata= ', Z[i], ' plan %= ', PR[i], ' premiya= ', FPRm[i]:2:2);
 
 //Вывод  фамилии с маскимальной премией
   Writeln('Samaya bolwaya primiya u = ', F[t]);
   Readln;
end.