две задачи - выразить денежную сумму в купюрах; по координатам найти периметр (Pascal)

[p0weR]

Всем привет. Очень нужна ваша помощь. Я вообще не разбираюсь в паскале, а тут мне выпало испытание решить две задачи) Помогите пожалуйста

Номер один. Введите сумму денег в рублях так, чтобы она показывала, сколько там 5 рублей, 2 рубля и 10 рублей. например: 50 рублей - 10 по 5 рублей, 25 по 2 рубля и 5 по 10 рублей.


Номер два. Вообщем тут рисунок, но постараюсь объяснить. Есть график, на нем изображен треугольник. на Оси X есть точки y1,y2,3, на Оси Y есть точки x1,x2,x3.

Нужно ввести координаты и найти периметр. (Теорема Пифагора).

Всем спасибо за помощь.

[Летучий_СкилетиК]

var r:integer;
begin
read(r);
writeln('Десятирублевых купюр',r div 10);
writeln('Пятитирублевых купюр',r div 5);
writeln('Двухрублевых купюр',r div 2);
end.

[Летучий_СкилетиК]

Нужно ввести координаты и найти периметр. (Теорема Пифагора).

найти периметр, а причем тут теорема Пифагора?

var
    x1,y1,x2,y2,x3,y3,a,b,c,p:real;
begin
read(x1,y1,x2,y2,x3,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
p:=a+b+c;
write(p:3:2);
end.