program p23;
uses Crt;

var  N1,N2,delitel,i:longint;

begin
clrscr;
write('Zadej 1. cislo : ');
readln(N1);
write('Zadej 2. cislo : ');
readln(N2);
delitel:=1;
for i:=1 to N1 do
  if ((N1/i)=trunc(N1/i)) and ((N2/i)=trunc(N2/i)) then delitel:=i;
if delitel=1 then
   writeln('Tato cisla jsou nesoudelna')
  else
   writeln('Nejvetsi spolecny delitel cisel ',N1,' a ',N2,' je ',delitel);
repeat until keypressed;
end.