Курсовая работа: Проект разработки программы-калькулятора CalcKurs на языке программирования Pascal

t:=t*a;

pow:=t;

end; {pow}

{----------------------------------------}

procedure DelOstatok;

var

dd:array [1..200] of integer;

R:integer; {размерность чисел}

i:longint; {делитель}

k:longint; {остаток}

D,a,b:longint; {элементы заданного множества}

SUM:longint; {кол-во эл-ов, удовл условию}

S,T:byte;

q:char;

e,j,l,n:integer;

maxa,minj,maxj:longint;

begin

repeat

begin

writeln('введите ко-во чисел для нахождения НОК делителей');

readln(n);

writeln('введите ',n,' чисел: ');

readln(dd[1]);

maxa:=dd[1];

for i:=2 to n do

begin

readln(dd[i]);

if dd[i]>maxa then maxa:=dd[i];

end;