Написать диалоговую программу, которая спрашивает у вас: «Какой твой любимый предмет, какую оценку ты по нему имеешь?».

"Язык Паскаля." - это французский что ли? - Так на нем не программируют. А если на языке "Паскаль" - то можно написАть - не вопрос. Единственное, что условие странное - ну да, программа спрашивает, пользователь отвечает. А дальше что программа делает с этими ответами? Просто, получив ответы, заканчивается, или выводит на экран сообщение типа "Значит, Ваш любимый предмет - {предмет, введённый пользователем}, Вы его расцениваете на {количество баллов}."?

Ладно, напишу оба варианта:

1) Программа сразу завершается - типа опросник такой:

 Program P1; 

uses crt; 

var o: real; 

    p: string; 

begin 

clrscr; 

writeln ('Ответы вводите с клавиатуры. После ответа на каждый вопрос нажимайте клавишу Enter.'); 

writeln ('1-ый вопрос: Какой Ваш любимый предмет?');

write ('Ваш ответ: '); 

readln (p); 

writeln ('2-ой вопрос: На сколько баллов Вы его оцениваете в своем рейтинге?');

write ('Ваш ответ: '); 

readln (o); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

2-ой вариант - "с подведением итогов":

 Program P1;  

uses crt;  

var o: real;  

    p: string;  

begin  

clrscr;  

writeln ('Ответы вводите с клавиатуры. После ответа на каждый вопрос нажимайте клавишу Enter.');  

writeln ('1-ый вопрос: Какой Ваш любимый предмет?'); 

write ('Ваш ответ: ');  

readln (p);  

writeln ('2-ой вопрос: На сколько баллов Вы его оцениваете в своем рейтинге?'); 

write ('Ваш ответ: ');  

readln (o);

writeln ('Значит, Ваш любимый предмет - ', p, '. Вы его оцениваете на ', o, ' баллов в своем рейтинге.'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end. 

P.S. можно обе переменные сделать типа string.

program favorite_subject;

var
subject: string;
grade: integer;

begin
writeln('Какой твой любимый предмет, какую оценку ты по нему имеешь?');
write('Предмет: ');
readln(subject);
write('Оценка: ');
readln(grade);
writeln('Твой любимый предмет - ', subject, ', оценка - ', grade);
end.