Pascal. определить h - полное количество часов и m - полное количество минут, прошедших от начала суток до того момента (в первой половине дня), когда часовая стрелка повернулась на f градусов (0

var h,m,f: integer;

begin

readln(f);

h: =f div 30;

m: =(f mod 30)*2;

write(h,' ч ',m,' мин');

end.

(неясно-пиши в личку)

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.