Вывести значения -13; ‘A’; ‘B’; ‘C’; 8.95, присвоив их переменным k; с; f; e; d, считая k — пер. целого типа, c,f,e, — символьными пер., d — пер. вещественного типа. Исходные данные расположить на одной строке, а отпечатать в две строки — Pascal(Паскаль)

program n1;
uses crt;
var d:integer; c,f,e: char; k: real;
begin
    clrscr;
    write('Dannie celogo tipa ');
    read(d);
    write('Dannie simvolnogo tipa ');
    read(c,f,e);
    write('Dannie veschestvennogo tipa ');
    read(k);
    writeln('d=', d, '=' ,d:3);
    write('c=', c, '=' ,c:1); write('f=', f, '=' ,f:1); write('e=', e, '=' ,e:1);
    writeln('k-', k, '=' ,k:1:2);
    readln
end.

program n1;
uses crt;
var d:integer; c,f,e: char; k: real;
begin
    clrscr;
    write('Dannie celogo tipa ');
    readln(d);
    write('Dannie simvolnogo tipa ');
    readln(c,f,e);
    write('Dannie veschestvennogo tipa ');
    readln(k);
    writeln('d=', d, '=', d:3);
    writeln('c=', c, '=', c:1);
    writeln('f=', f, '=', f:1);
    writeln('e=', e, '=', e:1);
    writeln('k=', k, '=', k:1:2);
    readln;
end.