На паскале написать программку сокращения дроби , где N целое,

За 5 баллов не уверен, что Для вас ответ с тестами напишут. Разве что от нечего делать кто-то..

//Pascal ABC.NET v3.0 сборка 1111

Var
 a,b,c,d:integer;
begin
 read(a,b);
 c:=a;
 d:=b;
 while (alt;gt;0) and (blt;gt;0) do
  if agt;b then a:=a mod b else b:=b mod a;
 writeln(c div (a+b));
 writeln('---');
 writeln(d div (a+b));
end.


//А сейчас программка для тестов, выведет 1000 результатов в файл

Var
 a,b,c,d,i:integer;
 f:text;
begin
 assign(f,'text.txt');
  rewrite(f);
  for i:=1 to 1000 do
   begin;
     a:=random(1,100);
  b:=random(1,100);
  c:=a;
  d:=b;
  while (alt;gt;0) and (blt;gt;0) do
  if agt;b then a:=a mod b else b:=b mod a;
 writeln(f,c,' ',c div (a+b));
 writeln(f,'=':length(inttostr(c)));
 writeln(f,d,' ',d div (a+b));
 writeln(f);
   end;
 close(f);
end.