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.
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.