1)program z1;vark, m, r: integer;beginwrite('k = ');readln(k);write('m = ');readln(m);r := 60 * k + m;writeln('в минутах: ', r);end.2)program z2;vark, m, a, b, l: integer;beginwrite('k = ');readln(k);write('m = ');readln(m);write('a = ');readln(a);write('b = ');readln(b);write('l = ');readln(l);if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) thenwriteln('пойду')elsewriteln('не пойду');end.3)program z3;varm, r: integer;beginwrite('m = ');readln(m);r := m;while r >= 60 dor := r - 60;writeln('стрелка будет показывать ', r, ' минут');end.