СОСТАВИТЬ БЛОК СХЕМУ ОЧЕНЬ СРОЧНО!!! ДАЮ 35б!!
Program musica;
var m, n:integer;
begin

write ('Введите количество минут и секунд через пробел: ') ;

readln (m, n) ;

if (18 * (m * 90 + n) < = 9 * 1024) then writeln ('Песня поместится')

else writeln ('Песня не поместится') ;

end.