Instructiunea repetitiva cu test final REPEAT

Instructiunea repetitiva cu test final REPEAT

   Sintaxa
repeat
   instr1;
   instr2;
   .
   instrn
until cond

   Sematica:
   Sensul acestei instructiuni este: repeta instructiunile instr1, , instrn, pana cand este indeplinita conditia cond. Intructiunile se repeta cel putin o data.

   Exemple:
Vom calcula cel mai mare divizor comun pentru doua numere cu algoritmul lui Euclid.
program Euclid_cmmdc;
var a, b, deimp, imp, rest, cmmdc: Integer;
   raspuns: Char;
begin
   repeat
      WriteLn('Dati cele doua numere !');
      ReadLn(a,b);
      deimp:=a;
      imp:=b;
      repeat
         rest:=deimp mod imp; deimp:=imp; imp:=rest
      until imp=0;
      cmmdc:=deimp;
      WriteLn('C.m.m.d.c. = ',cmmdc); WriteLn;
      WriteLn('Repetam ? d/n'); ReadLn(raspuns)
   until raspuns='n'
end.