Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
var z: integer;
var r, a, b: integer;
x: integer = 42;
y: integer =7;
begin
if y>x then
begin
z:=x;
x:=y;
y:=z;
end;
a:=x;
b:=y;
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
writeln(a);
writeln(x);
write(y);
end.
Advertisements
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.
AcceptLearn more