Фух, держи) Вот, Юный Натуралист посмотрела в интернете, вроде бы правильно.
Алгоритм простой, нам нужно как-то обсчитать расстояние точек друг от друга. Делается это формулой sqrt((x1-x2)^2 + (y1-y2)^2).
Потом мы в цикле сравниваем по 2 точки и ищем максимальное расстояние.
Ответ:
алг
нач
цел n,t,m,r,s
ввод n
ввод t
ввод m
ввод r
ввод s
если m*n+r*t=s то вывод "спасибо за покупку" все
если m*n+r*t>s то вывод "доплатите еще" все
если m*n+r*t<s то вывод "возьмите сдачу" все
кон
var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.