Var
   N,M,Ost,NSD,Bil,Men : Longint;
Begin
Read(N);Read(M);
Bil:=N;Men:=M;
While Bil Mod Men <>0 Do Begin
Ost:=Bil Mod Men;
Bil:=Men;
Men:=Ost;
End;
NSD:=Men;
Writeln(N+M-NSD);
End.

Try this :

if men>bil then men:=men mod bil else bil:=bil mod men;

And this (men=0)or(bil=0)

NSD:=men+bil

Good Luck !!!

Unfortunataly this doesn't work. Still WA.

You can mail me VRomanchik@tut.by

And i send my AC