Написать программу, которая вычисляет наибольший общий делитель двух целых чисел паскаль

Var  a, b: integer; begin writeln('введите два числа'); readln(a, b);   repeat  if a > b then a : = a mod b    else b : = b mod a;   until (a = 0) or (b = 0);   writeln('нод = ', a + b);   end.

#include < iostream> using namespace std; int main() {     int x, z;     cout < < "x = ", cin > > x, cout < < "\n";     cout < < "z = ", cin > > z, cout < < "\n";     for (int i=x; i< =z; i++) {       cout < < "i want this set with " < < i < < " soldiers! \n";     }     return 0; } пример: x = 5z = 10i want this set with 5 soldiers! i want this set with 6 soldiers! i want this set with 7 soldiers! i want this set with 8 soldiers! i want this set with 9 soldiers! i want this set with 10 soldiers!

#include "stdafx.h" #include < stdlib.h> #include < locale.h> int main(){ setlocale(0,"russian"); //установка языка int x,z; do{ printf("введите количество солдатиков в первом наборе(x): "); scanf("%d",& x); if(x< 0) printf("количество солдатиков - число положительное.\n"); }while(x < 0); do{ printf("введите количество солдатиков в последнем наборе (z): "); scanf("%d",& z); if(z < x) printf("в последнем наборе солдатиков должно быть не менее чем в первом.\n"); }while(z < x); printf("проходя мимо полок с игрушками костя восклицает: \n"); for(; x < z; x++) printf("\ti want this set with %dsoldiers\n",x+1); system("pause"); return 0; }