该程序是pascal程序中的比较简单的一个程序。

实现的功能是：简单的输入和输出。

具体来说就是从键盘上输入一个字符，然后在屏幕上显示出来

程序代码如下：

program cql1(input,output);
var x:char;
begin
writeln;
write('input a charactor,please:');
read(x);
write('this is the charactor you inputed:',x);
end.

以上的程序在TP7.0编译环境中成功运行。

注：

程序仅接受一个字符输入，主要是由于read（）的关系，如果输入多个字符，只获取第一个字符并显示。