Qsm pascal

Svp qui peut m'aider à trouver ces réponses:
Q1:
c:=0; r :=1;
Reapeat
c :=c+1;
r :=r+2;
Until r=6;
c et r sont de types entier la boucle s'exécute : 2 fois, 3 fois, 4 fois ou à l'infinie?
j ai une confusion entre ces 2 réponses r s'exécute 2 fois ou r s'exécute 3 fois?

Q2:
c :=0;
Reapeat
For i :=1 to 5 do
c:=c+1;
Until i>=3;
Writeln(i);
c et i sont deux entier, après l'exécution la variable i sera: 0, 3, 4 ou 5? je pense que i=3 est ce que c'est juste?

Q3:
a :=5 ; b :=10;
c := ord(a>b)*a + ord(b>=a)*b;
A,b et c sont 3 entier, après exécution la variable c sera: 15, 10, 5 ou 0?
priorité c'est de calculer tout d'abord (), *, /, + mais j'arrive pas a trouver la bonne réponse?

Q4:
Var a,b : integer ; c :real;
Procedure calcul (var x:integer ; y:integer);
Lequel des appels suivants de la procédure est correcte: calcul(a,c), calcul(2*a,b), calcul(c,a) ou calcul(a,2*b)??
j'arrive pas a trouver la bonne réponse?

Q5:
a :=10 ; b :=5 ; c:=3; d:=1; r:=2;
r:= a+b*c/(2+d)*4;
a, b, c et d sont des entier et r de type réel, après l'exécution la variable r sera : 32, 30, 60 ou 62?
j'arrive pas a trouver la bonne réponse?