Как сделать в Pascal так, чтобы данная программа повторялась 5 раз?

Вот сама программа:

program zadacha1;
var fv, tz,proc_g, x:real;
y, N, k:integer;
bank, vklad:string;
function multi(a: real; b:integer):real;
begin
if b=1 then
multi:=a
else
multi:=a*multi(a,b-1);
end;
begin
Write(‘Введите название банка: ’);
Readln(bank);
Write(‘Введите название вклада: ’);
Readln(vklad);
Write(‘Введите начальную сумму вклада: ’);
Readln(tz);
Write(‘Введите годовую процентную ставку (в процентах): ’); Readln(proc_g);
Write(‘Введите срок вклада (в годах): ’);
Readln(k);
Write(‘Сколько раз в год начисляются проценты? ’);
Readln(N);
x:=1+proc_g/(100*N); //
y:=k*N; //
fv:=tz*multi(x,y); //
Writeln(‘Будущая сумма вклада равна ’, fv:8:2);
end.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.