Begin
randomize;
writeln('Для молодёжи: ', 1 + random(100));
writeln('Для взрослых: ', 101 + random(100));
writeln('Для стариков: ', 201 + random(50));
end.
Var a,b,s:real;
begin
Writeln('Привет,я-alconafft');
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln('s= ',s);
end.
просто перерисуй так мкак на рисунке
Некорректно написан вопрос. В какой числовой промежуток ?