Program Deret Angka

program deret_angka;
uses wincrt;
var
angka1 : integer;
angka2: integer;
begin
angka1:=1;
repeat
angka2:=angka1+3 ;
until
angka2=16;
write(angka2);
end.