var a: integer;
begin
a:=random(101);
writeln(a);
if (a<50) then
writeln('Чтобы получить 50, необходимо прибавить к числу ',50-a)
else
writeln('Чтобы получить 50, необходимо убавить число на ',a-50)
end.
var a: integer;
begin
a:=random(101);
writeln(a);
if (a<50) then
writeln('Чтобы получить 50, необходимо прибавить к числу ',50-a)
else
writeln('Чтобы получить 50, необходимо убавить число на ',a-50)
end.