Одномерные массивы решить все 5 заданий с карточки!​

#include <iostream>
#include <math.h>
using namespace std;
int main ()
{
setlocale (0,"russian");
float a,b,h,F,x;
cout << "Промежуток:\nот ";
cin >> a;
cout << "до ";
cin >> b;
cout << "Шаг: ";
cin >> h;
x=a;
do
{
F=2*tan(x/2)+1;
cout << "x=" << x << '\t' << "F(x)=" << F << endl;   // \t - символ табуляции
x+=h;
if (x==0)     //на ноль делить нельзя, поэтому, если x=0, то мы  
    x+=h;    // перескакиваем к следующему аргументу
} while (x<=b);
system ("PAUSE");
return 0;
}

1(a)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
writeln(c);
readln;
d:=a-b;
writeln(d);
readln;
end.

b)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.

c)
Program Zadanie;
var a,b,c,d:integer; 
begin
writeln('введите два числа');  //здесь вводим два числа
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.

2.
Program Zadanie;
var a,b,c,d:integer; 
begin
writeln('введите три числа');  
readln(a,b,c);
d:=a*b*c;
writeln(d);
readln;
end.

3.
Program Treugol;
var a,b,c,d:real; 
begin
writeln('введите два числа');  
readln(a,b);
c:=2*(a+b);
d:=a*b;
writeln(c,d);
readln;
end.

4.

Program Goda;
var R:real;
begin
write('введите R');
readln(R);
d:=R*356;
c:=d*24;
m:=c*60;
s:=m*60;
writeln(d);
writeln(c);
writeln(m);
writeln(s);
readln;
end.

Надеюсь на лучший ответ и на