На языке Паскаля написать программу: Дано число. Определить, на какую цифру оно оканчивается, затем умножить его само на себя столько раз, на какую цифру оканчивается исходное число. Решить используя циклы.

Вот решение задачи на языке Паскаль:

```
program ending_digit;
var
num, ending_digit, result: integer;
i: integer;
begin
write('Введите число: ');
readln(num);

ending_digit := num mod 10; // определяем последнюю цифру числа

result := num;
for i := 1 to ending_digit do
begin
result := result * num; // умножаем число само на себя ending_digit раз
end;

writeln('Число ', num, ' оканчивается на цифру ', ending_digit);
writeln('Результат: ', result);
end.
```

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