Нужно записать программу в Паскаль с массивов очень нужно">

#include <iostream>

using namespace std;

int main()

{

int YBorn , YNow ;

cout <<"what year where you born in?"<<endl;

cin >>YBorn;

cout <<"what year is it now?"<<endl;

cin >>YNow;

int YOld=YNow-YBorn;

cout<<"at the end of the year:"<<endl;

cout << "you're " <<YOld << " years old"<<endl;

int MOld = YOld*12;

cout<< "and "<<MOld<<" month old"<<endl;

int DOld=YNow/4-YBorn/4+YOld*365;

cout<<"and "<<DOld<<" days old"<<endl;

int HOld=DOld*24;

cout<<"and "<<HOld<<" hours old"<<endl;

int MinOld=HOld*60;

cout<<"and "<<MinOld<<" minutes old"<<endl;

int SOld=MinOld*60;

cout<<"and "<<SOld<<" seconds old"<<endl;

cout<<"and "<<SOld<<"000 miliseconds old"<<endl;

system("pause");

return 0;

}

Вот так лучше и работает правильно:

var
a: integer;

begin
writeln('Введите номер дня недели');
read(a);
if (a < 1) or (a > 7) then
Write('Ошибка')
else
begin
if a = 1 then
writeln('Понедельник') ;
if a = 2 then
writeln('Вторник') ;
if a = 3 then
writeln('Среда') ;
if a = 4 then
writeln('Четверг') ;
if a = 5 then
writeln('Пятница') ;
if a = 6 then
writeln('Суббота') ;
if a = 7 then
writeln('Воскресенье') end ;
end.

А ещё лучше подобные задания через оператор case делать:

var
n: Integer;

begin
Write('Введите номер дня недели: ');
readln(n);
case n of
1: WriteLn('понедельник');
2: WriteLn('вторник');
3: WriteLn('среда');
4: WriteLn('четверг');
5: WriteLn('пятница');
6: WriteLn('суббота');
7: WriteLn('воскресенье') else Write('ошибка');
end;
end.