program Hello;
var x, y: Real;
begin
writeln('Введите число x');
read(x);
if x<1 then begin
y:=5*x+2;
end
else begin
y:=sin(x);
end;
writeln(y);
end.
Объяснение:
