Задачи на циклический алгоритм

[artem66rus]

Pascal ABC очень нужно помочь, кто сможет?

1. В статистической отчетности областного правительства имеется следующая информация о больницах: номер больницы, общее количество мест, количество занятых мест. Вас попросили определить номер больницы, имеющей наибольшее количество свободных мест. Составьте программу, которая поможет решить эту задачу.

2.Изобразить на экране две движущиеся точки, траектории которых являются концентрическими окружностями. Угловая скорость точки, движущейся по внутренней окружности, должна быть несколько меньше, чем угловая скорость точки, движущейся по внешней окружности (обе скорости - постоянные величины). При этом обе точки вращаются в одном направлении (например, по часовой стрелке).

[danbes1]

1 прога- используйте массивы и оператор CASE.
а 2-пока ещё не пробовал делать

[Mad_Cat]

1)

m:=1;
for i:=2 to n do
if a[3,i]>a[3,m] then m:=i;
wtite(a[1,m]);