program zamena;
 { zamena hodnot dvoch premennych }
var
 cis1,cis2,pom:integer;
begin
  write('Zadaj dva cela cisla oddelena medzerou : ');
  readln(cis1,cis2);
  pom:=cis1;
  cis1:=cis2;
  cis2:=pom;
  writeln('Zamenene cisla :',cis1,' ',cis2 );
  writeln('<Enter>');
  readln;
end.