program a1;
var x, y:real;
begin
writeln('Введи число');
readln(x);
y:=(24+x)*2;
writeln(y);
end.
Если правильно понял.
Объяснение:
