Ввести с клавиатуры значения переменных: — ; 45,3; 65533; -0,43; B; b; 6; e; и ввести значение FALSE. Вывести на экран каждое из значений без формата и по формату(для значений вещественных переменных — по двум различным форматам) — Pascal(Паскаль)

var a,b,c,d,ch:char;i,n,nn:longint;x,y:real;
begin
writeln('vvedite '45.3' ');
read(x);
writeln('vvedite '65533' ');
read(nn);
writeln('vvedite '-0.43' ');
read(y);
writeln('vvedite 'B' ');
read(b);
writeln('vvedite 'b' ');
read(c);
writeln('vvedite '6' ');
read(n);
writeln('vvedite 'e' ');
read(d);
writeln('vvedite znachenie FALSE');
while ch<>' ' do begin
read(ch);s:=s+[ch];end;
write(a);
writeln(x);
writeln(x:5:1)
writeln('dlinoe celoe',nn);
writeln(y);
writeln(y:5:3);
write(b);
write(c);
writeln(n);
write(d);
for i:=1 to length(s) do
write(s[i]);
end.