В конце учебного дня робот Костя приходит в кабинет к директору Борису Ивановичу и оглашает результаты учебного дня. Он всегда говорит одно и то же: «Последний урок — (урок). (Имя) получает за работу в классе (оценку)!» Напиши программу, которая читает три строчки — урок, имя и оценку — и выводит готовую фразу Кости.

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

954-459=495

все условия соблюдены