Кто-нибудь сможет перевести с Паскаля на алгоритмический язык? var a, N,

Кто-нибудь сумеет перевести с Паскаля на алгоритмический язык?
var a, N, i, min, num : integer;

begin

min:=50; num:=0;

readln(N);

for i:=1 to N do begin

readln(a);

if a lt; min then min := a;

if a lt; 15 then num := 1;

end;

writeln(min);

if num gt; 0 tnen writeln(YES)

else writeln(NO)

end.