Кто-нибудь сможет перевести с Паскаля на алгоритмический язык?
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 < min then min := a;

if a < –15 then num := 1;

end;

writeln(min);

if num > 0 tnen writeln(’YES’)

else writeln(’NO’)

end.

​