Прокомментировать код

program z168;
uses Crt;
var
a,b,c:longint;
a1,b1:longint;
 
begin
ClrScr;
Write('Vvedite chislitel:');Readln(a);
Write('Vvedite znamenatel:');Readln(b);
if b=0 then begin
Writeln('Znamenatel ne dolzhen ravnyatsya nuly');
Readkey;
Halt(1);
end;
if a=0 then begin
Writeln(a,'/',b,'=',0);
Readln;
Halt(1);
end;
 
a1:=a; b1:=b;
if b>a then begin
end;
 
while a mod b<>0 do begin
c:=b;
b:=a mod b;
a:=c;
end;
 
Write (a1,'/',b1,'=',a1 div b);
if b1 div b<>1 then Writeln ('/',b1 div b);
Readln;
end.

var
a,b,c:longint;
a1,b1:longint;
 
begin
  Write('Vvedite chislitel:');
  Readln(a);   //Введеное число запоминается в переменной а
  Write('Vvedite znamenatel:');
  Readln(b);  //Введеное число запоминается в переменной b
  if b=0 then begin //Проверка, если b = 0, то выводит сообщение, что на ноль делит нельзя
    Writeln('Znamenatel ne dolzhen ravnyatsya nuly');
   // Readkey;    //Возможно здесь нужно Readln вместо Readkey
    Halt(1);    //Halt(n)|процедура|n - integer|Завершает программу. Выводит в окно вывода предупреждение "Программа завершена вызовом Halt(n)"
    end;
  if a=0 then begin  //Поверка, если а = 0, то выводит на экран a/b = 0
    Writeln(a,'/',b,'=',0);
    Readln;
    Halt(1); //Смотрите выше
  end;
 
  a1:=a;  //Присваивается  переменной a1, значение a
  b1:=b;  //Присваивается  переменной b1, значение b
  if b>a then begin //Проверка, если b > a, то ничего не делается
  end;
 
  while a mod b<>0 do begin  //Пока a  деленная на b, в остатке дает не 0, делаются следующие операторы до end;
    c:=b;  //Переменной с присваивается значение b
    b:=a mod b;  //переменнной b присваивается значение остатка от деления а на b
    a:=c;   //a  присваивается значение с
  end;
 
Write (a1,'/',b1,'=',a1 div b);  //Выводится на экран а1/b1 = резудьтат деления
if b1 div b<>1 then  //Проверка, если b1/b не равно 1, то выводится /результат деления b1/b
  Writeln ('/',b1 div b);
Readln;
end.