Конвертировать код в Pascal

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

Добрый вечер, обращаюсь за помощью. Есть небольшой код, его необходимо конвертировать в Pascal. Я попробовал его переписать, но получился тихий ужас

#include<iostream>
    using namespace std;
     
    int main(){
        int t, zedt;
        while(true){
            cin>>t;
            if(t<=15)break;
        }
        zedt=15-t;
        cout<<((double)t/15*100)<<"%\n"<<((double)zedt/15*100)<<"%\n";
        return 0;
    }

Решение задачи: «Конвертировать код в Pascal»

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

                            var t: Integer;
begin
  repeat Read(t) until t<=15;
  WriteLn(t/15*100:0:6,'%');
  WriteLn((15-t)/15*100:0:6,'%');
end.
                        