$\begin{array}{l}\phantom{\rule{0.147em}{0ex}}\mathbf{program}\phantom{\rule{0.147em}{0ex}}\mathrm{piemeers1};\\ \phantom{\rule{0.147em}{0ex}}\mathbf{uses}\phantom{\rule{0.147em}{0ex}}\mathbf{crt};\\ \phantom{\rule{0.147em}{0ex}}\mathbf{begin}\\ \phantom{\rule{0.147em}{0ex}}\phantom{\rule{0.147em}{0ex}}\phantom{\rule{0.147em}{0ex}}\mathbf{clrscr};\\ \phantom{\rule{0.147em}{0ex}}\phantom{\rule{0.147em}{0ex}}\phantom{\rule{0.147em}{0ex}}\mathbf{randomize};\\ \phantom{\rule{0.147em}{0ex}}\phantom{\rule{0.147em}{0ex}}\phantom{\rule{0.147em}{0ex}}\mathbf{writeln}\left(\mathrm{\text{'}}\mathrm{Ar}\phantom{\rule{0.147em}{0ex}}\mathrm{metamo}\phantom{\rule{0.147em}{0ex}}\mathrm{kaulinju}\phantom{\rule{0.147em}{0ex}}\mathrm{tika}\phantom{\rule{0.147em}{0ex}}\mathrm{uzmests}\phantom{\rule{0.147em}{0ex}}\mathrm{skaitlis}\phantom{\rule{0.147em}{0ex}}\text{'}\text{,random}\left(6\right)+1\right);\phantom{\rule{0.147em}{0ex}}\\ \phantom{\rule{0.147em}{0ex}}\phantom{\rule{0.147em}{0ex}}\phantom{\rule{0.147em}{0ex}}\mathbf{readkey};\\ \phantom{\rule{0.147em}{0ex}}\mathbf{end};\end{array}$