Поставьте программу для вычисления периметра прямоугольника

Var p,a,b:integer;
begin
writeln ('Введите стороны прямоугольника a и b');
readln (a,b);
p:=(a+b)*2;
writeln ('Периметр прямоугольника равен ',p);
end.

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

#include <iostream>
#include <iomanip>
using namespace std; 

int main() {   
    int n,k,ind;
    cout<<"n = ";  cin>>n;
    string a[n][3];
    string inp;
    for (int i=0; i<n; i++) {
        cout<<"record number: "<<i+1<<endl;
        cout<<"name: ";  cin>>a[i][0];
        cout<<"letter: ";  cin>>a[i][1];
        cout<<"password: ";  cin>>a[i][2];
    }   
    cout<<endl;
    cout<<"letter: ";  cin>>inp;
    k=0;
    for (int i=0; i<n; i++)
       if (a[i][1]==inp) {
          k=1; ind=i;
       }
    if (k==0) cout<<"no letter "<<inp<<endl;
    else {
       cout<<"password: ";  cin>>inp;
       if (inp!=a[ind][2]) cout<<"not valid password"<<endl;
    }   
    system("pause");
    return 0;
}