begin
integer
x,
y;
x := + 2y := - 3;
if x < - y then
end
algol
begin
integer
x,
y;
x :=;
end
algol
begin
integer
x,
y;
x := + 3 := y
end
algol
begin
real
w,
v;
real
x,
y,
z;
x := + 6.0;
y := - 2.931;
z := 4^.2;
w := 10, 000;
end
algol
begin
real
v;
v := 3.5@( - 3);
end
algol
begin
comment library 1;
integer
n;
real
r;
n := 2;
r := 2.5@n;
outreal(1, r);
end
algol
begin
real
x,
y,
z;
y := 2.0;
x := 2.5;
z := 5y * (2 + x);
end
algol
begin
real
y1,
y2;
y1 := y2 := 1;
repeat :;
if y1 > 0 then
goto stop'GOTO' repeat;
stop :;
end
algol
begin
real
x,
y,
z;
x := 6.0;
5.0;
y := - 2.931;
z := 4^.2;
end
algol
begin
integer
i.j;
i := 2;
j := 3;
if i * j > i + j then
end
kdf9