СКОЛЬКО ВРЕМЕНИ ДАЮ 10 ГОЛОСОВ

Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte); 
var i:byte; 
begin 
for i:=k to n-1 do z[i]:=z[i+1]; 
z[n]:=0; 
end; 
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i]:4);
 end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
  begin
  Del(a,i);
 writeln('Размерность массива = ',n-1);
 for i:=1 to n-1 do write(a[i]:4);
 writeln;
 end  else writeln('Массив не изменился');
end.
Пример:
  12  13   6   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
Размерность массива = 19
  12  13   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18

1)
#include <iostream>
using namespace std;

int main()
{
  int a;
  float b,sum = 0;
  cout <<"Int: ";
  cin >> a;
  cout <<"Float: ";
  cin >> b;
  sum=a+b;
  cout <<sum <<endl;
  return 0;
}

3)
#include <iostream>
#include <string>
using namespace std;

void text (const string str)
{
  cout <<str <<endl;
}
int main()
{
  string s;
  cout <<"Text: ";
  getline (cin, s);
  text (s);
  return 0;
}

2)
#include <iostream>
using namespace std;

void show (const int a,const float b,const double c)
{
  double rez=a*b*c;
  cout <<"Proizvedenie: " <<rez;
}

int main()
{
  int a;
  float b;
  double c;
  cout <<"Int: ";
  cin >> a;
  cout <<"Float: ";
  cin >> b;
  cout <<"Double: ";
  cin >> c;
  show (a,b,c);
  return 0;
}

4)
#include <iostream>
using namespace std;

int main()
{
  char str[6];
  int i=0;
  for (i=0; i<5; i++)
  {
    cout <<i+1 <<" = ";
    cin >> str[i];
  }
  str[i]='\0';
  cout <<str <<endl;
  return 0;
}