Вопрос Помогите написать программу на паскале

Сколько времени ученик проводит в школе в тот день, когда у него 6 уроков по 40 минут и перемены между 1 и 2 уроком 10 минут, между 4 и 5 уроками 20 минут, остальные перемены по 15 минут

Var x:integer;

begin

x:=6*40+10+3*15+20;

writeln('время = ',x);

end.

Нейронка поможет

program SchoolTime;

var
lessonDuration, break1_2, break4_5, otherBreaks, totalTime: integer;

begin
// Длительность урока
lessonDuration := 40;

// Длительность перемен
break1_2 := 10; // Перемена между 1 и 2 уроком
break4_5 := 20; // Перемена между 4 и 5 уроками
otherBreaks := 15; // Остальные перемены

// Вычисление общего времени
totalTime := 6 * lessonDuration + // Время уроков
break1_2 + // Перемена между 1 и 2 уроком
break4_5 + // Перемена между 4 и 5 уроками
4 * otherBreaks; // Остальные 4 перемены (между 2-3, 3-4, 5-6 уроками)

// Вывод результата
writeln('Общее время, проведённое в школе: ', totalTime, ' минут'
end.

На говне не пишу

Поручи чату гпт.
Паскаль в школе мы учили 30 лет назад. Он уже тогда был устаревший.