Нужно чтобы программа предлагала выбор: выйти или продолжить - Turbo Pascal

Формулировка задачи:

Есть программа на паскале,нужно что бы после того как она сделала вычисление,она предложила выйти из программы либо предложила сделать новое вычисление. Добавлено через 9 минут
program Lab7;
uses crt;
var
D:array[1..1000000] of integer;
k,k2,s,n,i:integer;
 
begin
randomize;
writeln('Введите размер массива');
readln(n);
if n> 1000000 then writeln('Превышен допустимый размер массива');
writeln('Массив');
for i:=1 to n do
begin
d[i]:=-100+random(201);
writeln(d[i]);
end;
k:=0;
if d[i] mod 5=0 then
k:=k+1;
writeln('Количество чисел делящиеся на 5 равно:');
writeln(k);
k2:=0;
if d[i] mod 7 <> 0 then
k2:=k2+1;
writeln('Количество чисел не делящиеся на 7 равно:');
writeln(k2);
s:=k+k2;
writeln('Сумма чисел которые делятся на 5 и не делятся на 7:');
writeln(s);
end.
нет, та программа которую я представил сначала полностью не правильная, мне надо чтобы числа которые делятся на 5 и не делятся на 7 заполнялись во второй массив, а затем числа занесенные во второй массив были суммированы. как это можно сделать?

Код к задаче: «Нужно чтобы программа предлагала выбор: выйти или продолжить - Turbo Pascal»

textual
writeln ('  1) Проделать вычисления заново');
 writeln ('  2) Выйти из программы');
 repeat
  readln(ch);
 until (ch=1) or (ch=2);
  if ch=1 then
   goto nachalo;

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ