ребята нужно сделать СОР ​

Program z1;

Uses Crt;

var a,i:integer;

       p:longint;

begin

    clrscr;

     p:=1;  

     write('Введите число а: ');

     readln(a); 

     for i:=a to 100 do  

         p:=p*a;

   writeln('Произведение всех чисел от  ',a,'до 100:',p);

    readkey;

end. 

Program z2;

Uses Crt;

var s,i:integer;

i:=2;s:=0;

while(i<=98) do

   begin 

        s:=s+i; 

         i:=i+2;

end;

    clrscr;

     write('Сумма последовательности: ',s);  

    readkey;

end. 

Program z3; 

Uses Crt;

var a,i:integer;

begin     

     clrscr;

     a:=0;     

     for i:=100 to 999 do

         if ((i mod 5)=0 and (i mod 21)=0) then

               a:=a+1;                    

     write('Количество 3-значных чисел делящихся без остатка на 5 и 21: ',a); 

    readkey;

end. 

Program z4; 

Uses Crt;

var a,i,s:integer;

begin     

     clrscr;

       s:=10:  

       write('Введите количество тренировочных дней: ');  

        readln(a);

         for i:=2 to a do

               s:=s+3;

       write('Суммарное расстояние: ',s);        

readkey;

end. 

Program z5;

Uses Crt;

var a,i,n,s:integer;  

begin     

     clrscr;

      write('Введите количество отрядов: ');

      readln(n);  

      s:=0; 

      for i:=1 to n do

          begin

               write('Введите количество детей в  ',i ,'-м отряде:' ); 

               readln(a);

               clrscr; 

               s:=s+a;

         end;      

   writeln;

   writeln('Общее количество детей в лагере:',s);

   readkey;

end. 

1)

var

  a: real;

  x, y: integer;

begin

  writeln('Введите дробное число');

  readln(a);

  x:= trunc(a);

  y:= frac(a);

  writeln(x, ' рублей ', y * 100, ' копеек');

  readln;

end.

2)

var

  n: 100..999;

  a, b, c: 0..9;  //a - сотни, b - десятки, с - единицы

begin

  writeln('Введите трехзначное число');

  readln(n);

  a:= n div 100;

  b:= (n mod 100) div 10;

  c:= n mod 10;

  writeln('Сумма цифр:  ', a + b + c);

  readln;

end.

3)

var

  a, b, c: real;

begin

  writeln('Введите числа а и b');

  readln(a, b);

  if a > b then

  begin

    c:= a;

    writeln(c, ' - большее число');

  end;

  if b > a then

  begin

    c:= b;

    writeln(c, ' - большее число');

  end;

  if b = a then writeln('Числа равны');

  readln;

end.