program Tipos;
var
  a, b : integer;
  c : real;
  d : char;
begin
  a := 1;
  b := 2;
  c := 1.5 + 2.5 * 2.0;
  d := 'x';
  write(a);
  write(b);
  write(c);
  write(d);
end.