5 задач(Paskal). Нужно решения, пример(Это то, что начинается с Begin, заканчивается end, с командой read). Надеюсь вы меня поняли, саму программу писать не надо, просто текст сюда!На кону 150 баллов:D 1. Дано натуральное четырехзначное число n. Определите произведение его цифр. 2.Известно время восхода и захода солнца в часах и минутах.Определить долготу дня в часах. 3. Сколько заготовок круглой формы можно изготовить из куска ткани шириной a, длиной b, если радиус заготовки равен r. 4. Сумму денег n рублей разменять наименьшим количеством монет по 1, 2, 5 или 10 рублей. В ответе указать количество монет для каждого достоинства. Например, для n=53 понадобится по 1 рублю- 1 монета, по 2 рубля-1 монета, по 5 руб-0 монет, по 10 руб-5 монет 5. Поменять содержимое двух ячеек a и b а) С использованием дополнительной ячейки. б) Без использования дополнительной ячейки.

1.
Program la;
var a,b,c,d,s,n: integer;
begin
writeln(Введите 4-ехзначное число);
readln(n);
a:= n div 1000;
b:= n mod 100 div 10;
c:= n mod 10;
d:= n div 100 mod 10;
s:=a*b*c*d;
writeln(s);
end.