Matematické Fórum

Zdravím, mám tady trochu odlehčenou verzi euklidovy věty... chci se zeptat proč se mi program zavírá a nečeká na odenterování. Příkaz readln; bez parametru jsem nakonci uvedl.  Je někdo schopný vysvětlit proč při použítí příkazu, pro načtení dvou čísel readln(a,b) stačí na konci programu uvést readln; jednou ... a při použití read(a,b) musím na konci readln; uvést dvakrát jinak se mi program vždy zavře. A ještě zda za while do má být příkaz begin . Děkuju za odpověď.
program jjj;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x,y,a,b:integer;

begin
  read(a,b);
  x:=a;
  y:=b;
  while x<>y do
  if x>y then
    x:=x-y
  else
    y:=y-x;
  writeln(x:3);
  readln;
  readln;
end.






A omlouvám se za bordel v sekci ostatní...