Составить программу запрашивающую у пользователя: его имя и название его любимого блюда, и выводящая на экран сообщение, о том что именно это блюдо было любимым блюдом короля Генриха 4

Uses crt;

var s1, s2: string;

begin

write ('Введите свое имя: ') ; readln (s1) ;

write ('Введите свое любимое блюдо: ') ; readln (s2) ;

clrscr;

writeln (s1,'! Именно ', s2,' было любимым блюдом и у короля Генриха IV!') ;

end.

Var im, bl:string;

begin

writeln ('Введите ваше имя и любимое блюдо') ;

readln (im) ;

readln (bl) ;

writeln ('Уважаемый ', im,'! Ваше любимое блюдо - ', bl,'было любимым у короля Гениха 4') ;

end.

/ / При некорректном выводе русских букв, замени их на английские транслитом