Ответ:

program KettleBoilingTime;

uses crt;

var Q, N, x, y, y1: real; //X - количество воды в литрах, Y - количество времени, необходимое для нагрева воды до 100 градусов по Цельсию.

begin

writeln('Сколько воды нужно вскипятить? (В литрах)');

readln(x);

N:= 1000;

q:= 4200 * x * 75; //В Джоулях.

y:= q / n;

writeln(y, ' Секунд');

y1:= y / 60;

write(y1, 'Минут');

end.