program name1;
var x,b:real;
begin
writeln('Введите b');
readln(b);
x:=(7*b-3);
writeln('x=',x);
end.
program name1;
var x,b:real;
begin
writeln('Введите b');
readln(b);
x:=(7*b-3);
writeln('x=',x);
end.