program example;

var a,b,x1,x3,x4:integer;

x2:real;

begin

randomize();

writeln('введите А');

readln(a);

x1:= a*random(100);

x2:= a/random(100);

x3:= a+random(100);

x4:= a-random(100);

writeln(x1,',',x2,',',x3,',',x4);

end.