program valem1;
var
 x: integer;              {x on täisarvu tüüpi muutuja}
begin
 x:=1;                    {muutuja x väärtuseks saab 1}
 writeln(x);
 x:=3;
 writeln(x);
 x:=x-5;                  {muutuja x väärtuseks saab x'i endisest}
                          {väärtusest 5 võrra väiksem arv.}
 writeln(x);
 writeln('Muutuja x väärtus on praegu ', x);
end.