program valem2;
var
 x: integer;              {x on täisarvu tüüpi muutuja}
begin
 writeln('Sisesta miski arv!');
 readln(x);
 writeln;
 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.