Var
i:integer;
p:real;
b:Boolean;
s:string;
c:char;
begin
i:=5;
p:=3.141593;
b:=true;
s:='Привет!';
c:=chr(200);
writeln('integer ',i);
writeln('real ',p);
writeln('Boolean ',b);
writeln('string ',s);
writeln('character ',c)
end.
Результат работы программы:
integer 5
real 3.141593
Boolean True
string Привет!
character И