Перевести код с C++ на pascal?

Question

[MrFlatman]

Всем привет, есть небольшой кусок кода на С++

#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, я попробовал сам, как я это понимаю, но что-то не срослось, подскажите как правильнее его записать?

program massiv;
var t,zedt,t1,t2: real;
begin
read(t);
while(true) {

if(t<=15)break;
}do
zedt:=15-t;
t1:=t/15*100;
t2:=zedt/15*100;
writeln(t1, t2);
end.

Comments

[Stalker_RED]

Вы пробовали это скомпилировать? У вас там синтаксические ошибки, вы бы хоть посмотрели как тот-же while пишется в паскале.

Answer 1

[3vi1_0n3]

Не компилировал, но должно быть что-то вроде этого:

program massiv;
var t,zedt,t1,t2: real;
begin
  while (true) do
  begin
    read(t);
    if (t<=15) then break;
  end;
  zedt:=15-t;
  t1:=t/15*100;
  t2:=zedt/15*100;
  writeln(t1, t2);
end.