type название =(ноль,один,два,три,четыре,пять);
Var:d:'0'..'5';n:название
По литере-цифре d присвоить переменной n название этой цифры
я не могу панять как записать type
вот как я начал:
uses crt;
const
Nul='najmite na cifru nul';
Odin='najmite na cifru odin';
Dva='najmite na cifru dva';
Tri='najmite na cifru tri';
Chetiri='najmite na cifru chetiri';
Pyat='najmite na cifru pyat';
var d:real;type:n;
begin
clrscr;