Записать дробное число в форматах Single, а целое в формате Integer — Pascal(Паскаль)

Дробное: 65,65 Целое: -56

{$N+}{если не подключен по умолчанию сопроцессор}
uses crt;
var d:single;
    c:integer;
begin
clrscr;
d:=65.65;
c:=-56;
writeln('Дробное=',d:0:2);
write('Целое=',c);
readln
end.