Объяснение:
program AplusB;
var
a,b :real;
begin
write ('Input a, b: ');
readln (a,b);
writeln('a+5b= ',a+5*b:10:3);
end.
