Составить программу в паскале которая рисует букву к, ю, м заранее ! выберу лучший !

Var s,s1:string; p:byte; 
begin readln(s); for p:=length(s) downto 1 do s1:=s1+s[p]; 
writeln(s1); end.