Из pascal'a в Prolog помогите перевести!!!!

Написал задачу на пацкале, надо перевести её в prolog, т. к. пролога не знаю... обращаюсь к вам... помогите пожалуйста

Var {здесь объявляем переменные}
c : array [1..100] of longint;
n, i, k, t : longint;
f : text;
Begin {Начало основной программы}
Assign(f,'keyboard.in'); {Чтение из входного файла}
Reset(f);
ReadLn(f,n);
For i:=1 to N do {цикл, берущий клавишу}
Read(f,c);
Readln(f,k);
For i:=1 to k do {Число нажатий}
begin
Read(f,t);
Dec(c[t]);
end;
Close(f);
Assign(f,'keyboard.out');
Rewrite(f);
For i:=1 to N do
If c>=0 Then
Writeln(f,'no') {Выписывает информацию, если не сломалась}
Else Writeln(f,'yes');{Если сломалась}
Close(f);
End.