напишите программу вычисления наименьшего общего кратного следующих чисел:46, 58, 14, 18, 7.Используйте процедуру вычисления наибольшего общего делителя двух чисел.

1) В условии говорится, что школьник сможет поступить в колледж, если наберет больше по математике. В записи на языке Pascal это будет выглядеть так:
```
if marks > 85
```
Если значение переменной "marks" больше 85, то условие истинно и школьник сможет поступить в колледж.

2) В условии говорится, что лифт поднимает груз не более 800 кг. В записи на языке Pascal это будет выглядеть так:
```
if weight >= 800
```
Если значение переменной "weight" больше или равно 800, то условие истинно и лифт не сможет поднять груз.

3) В условии говорится, что команда победит, если наберет от 20 до 30 очков в общем зачете. В записи на языке Pascal это будет выглядеть так:
```
if (score > 20) and (score < 30)
```
Если значение переменной "score" больше 20 и меньше 30, то условие истинно и команда победит.

4) В условии говорится, что чтобы пройти в следующий тур, нужно набрать 20 отзывов. В записи на языке Pascal это будет выглядеть так:
```
if calls = 20
```
Если значение переменной "calls" равно 20, то условие истинно и школьник сможет пройти в следующий тур.

Все данные условия написаны с учётом языка программирования Pascal.