ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1053. Пиноккио

SOS!
Послано Amy 18 июл 2003 15:24
This is my programme,please tell me why I got WA.Thank you!

var n,m,m0,ys:longint;
procedure pd(a,b:longint);
  var t:longint;
  begin
  if a<b then begin
                  t:=b;
                  b:=a;
                  a:=t;
                end;
    while a mod b<>0 do
    begin
      a:=a mod b;
      t:=a;a:=b;b:=t;
    end;
    ys:=b;
  end;
procedure run;
  var i:integer;
  begin
    for i:=1 to n-1 do
    begin
      read(m);
      pd(m0,m);
      m0:=ys;
    end;
    writeln(ys);
  end;
begin
  readln(n);
  read(m0);
  run;
end.