Программирование на Паскале Помогите, пожалуйста , написать программу на паскале

var a, b, c: int64;
function gcd(x, y: int64): int64;
var z: int64; begin z := x mod y;
if z = 0 then gcd := y else
gcd := gcd(y, z) end;
begin write('a b » '); readln(a, b);
c := gcd(a, b); if c = 1 then
writeln('Дробь несократимая!') else
a := a div c; b := b div c;
writeln(a, '/', b) end.

Назовем функцию nod(c, d) и реализуем ее по оптимизированному алгоритму Евклида: вместо вычитания будем использовать деление по модулю, для больших чисел так быстрее.
Если c = d, тогда оба числа равны общему делителю, берем любое из них:
nod := c;
В противном случае надо большее поделить на меньшее и остаток от деления использовать вместо большего.
Если c > d, тогда nod := nod(c mod d, d); {Рекурсивный вызов функции nod}
Если c < d, тогда nod := nod(c, d mod c);

function nod(c: integer; d: integer): integer;
begin
if c = d then nod := c
else if c > d then nod := nod(c mod d, d)
else nod := nod(c, d mod c);
end;

А в основной программе просто считываем a и b, кладем их nod(a, b) в переменную n и выводим дробь, сокращенную на n:
WriteLn(a div n, ' / ', b div n);

Всё. Программу целиком писать не буду, не ленитесь :)