15 lines
158 B
Plaintext
15 lines
158 B
Plaintext
! this won't work until after some lab work
|
|
|
|
let
|
|
var a : Integer
|
|
in
|
|
begin
|
|
a := 0;
|
|
repeat
|
|
begin
|
|
put('a');
|
|
a := a + 1;
|
|
end
|
|
until a >= 5
|
|
end
|