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

program prog16;
uses crt;
var x: byte;
begin
 clrscr;
 x:=7;
 dec(x,3);
 writeln('x=',x);
 inc(x);
 writeln('x=',x);
 readln;
end.