Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / prog17

program prog17;
uses crt;
var x: byte;
begin
 clrscr;
 x:=5;
 dec(x);
 writeln('x=',x);
 inc(x);
 write('x=',x);
 readln;
end.