Ответ:
program n1;
Var x, a, b: real;
Begin
Writeln ('впишите чему равно a');
Readln (a);
Writeln ('чему равно b?');
Readln (b);
X:=(a+b)*5;
Writeln ('ответ:' x);
End.
Объяснение:
Writeln - то что пишет программа и видно пользователям.
Readln - то что программа считывает.