program test;var subject: string;begin writeln('Какой предмет вы изучаете?'); readln(subject); writeln(subject, ' – любимый предмет многих'); readln;end.
program test;
var subject: string;
begin
writeln('Какой предмет вы изучаете?');
readln(subject);
writeln(subject, ' – любимый предмет многих');
readln;
end.