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

readln;

end;{SuperGorner}

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

procedure Express;

var

a,b,t:integer;

q:char;

begin

repeat

writeln('введите числитель=');

readln(a);

writeln('введите знаменатель=');

readln(b);

if b=0 then writeln(‘знаменатель не может быть=0’)

else begin

write('[');

while (a mod b>0) do

begin

write(a div b,',');

a:=a mod b;

t:=b;

b:=a;

a:=t;

end;

write(a div b, ']');

end;

writeln(‘Повторить ?(Y/N)');

q:=ReadKey;

until q in ['N','n'];