Перевод с С++ в pascal

Формулировка задачи:

Помогите, пожалуйста, перевести код с С++ в pascal:

                    Листинг программы
                
 
                        
                          
                    
#include
#include
 
using namespace std;
 
int main()
{
int Vase[3];
for(int i = 0; i < 3; ++i)
cin >> Vase[i];
for(int i = 0; i < 3; ++i)
cout << setw(4) << Vase[i];
cout << endl;
int count = 0;
while(true)
{
if(!Vase[0]--) break;
++count;
if(!Vase[1]--) break;
++count;
if(!Vase[2]--) break;
++count;
if(!Vase[1]--) break;
++count;
}
cout << "\nNumber: " << count << endl;
return 0;
}

Или объясните что значит: 1) Vase[3]; 2) cin >> Vase[i]; 3) cout << setw(4) << Vase[i]; 4) cout << endl; 5) !Vase[0]-- 6) cout << "\nNumber: " << count << endl; ... и какими командами это можно заменить в паскале?

Решение задачи: «Перевод с С++ в pascal»

Листинг программы

var
  Vase: array [0..2] of Integer;
  count, i: Integer;
begin 
  for i := 0 to 2 do Read(Vase[i]);
  for i := 0 to 2 do Write(Vase[i]:4); WriteLn;
  count := 0;
  repeat
    Dec(Vase[0]); if Vase[0]+1<>0 then Break;
    Inc(count);
    Dec(Vase[1]); if Vase[1]+1<>0 then Break;
    Inc(count);
    Dec(Vase[2]); if Vase[2]+1<>0 then Break;
    Inc(count);
    Dec(Vase[1]); if Vase[1]+1<>0 then Break;
    Inc(count);
  until False;
  WriteLn; WriteLn('Number: ',count);
end.

Объяснение кода листинга программы

Объявляется массив Vase размером 3 элемента типа Integer.
Объявляются переменные count и i типа Integer.
В цикле от 0 до 2 происходит считывание значений в массив Vase через команду Read.
В цикле от 0 до 2 значения из массива Vase выводятся с помощью команды Write с выравниванием на 4 символа, после чего следует команда Writeln для перехода на новую строку.
Переменная count инициализируется значением 0.
Запускается цикл с постусловием (repeat until False), в котором:
- Уменьшается значение элемента массива Vase с индексом 0. Если значение массива плюс 1 не равно 0, происходит выход из цикла.
- Переменная count увеличивается на 1.
- Аналогичные шаги повторяются для элементов массива с индексами 1 и 2.
После завершения цикла выводится результат выполнения, в данном случае, количество увеличений переменной count при выполнении условий.
Программа завершается.