program V;
var v,x:Integer;
begin
writeln('Введите число');
readln(x);
v:=(23+x)*2;
writeln('ответ = ',x);
end.
program V;
var v,x:Integer;
begin
writeln('Введите число');
readln(x);
v:=(23+x)*2;
writeln('ответ = ',x);
end.