Выразите через базовые множества закрашенную область

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.

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

 

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

 

информатика - наука о способах получения, накопления, хранения, преобразования, передачи, защиты и использования информации.

 

информация - сведения о чем-либо, независимо от формы их представления.

 

информационные технологии -  широкий класс дисциплин и областей деятельности, относящихся к технологиям создания, и обработки данных, в том числе с применением вычислительной техники