Паскаль, задача помогите плз!!!! 1 курс

В общем девушке 1 курс в универе задачу задали, я в
этом вообще мало шарю, помогите решить:

http://cs302813.userapi.com/v302813077/65f6/HrzeTgouFzQ.jpg

"Задание 8.12"

Спасибо большое всем кто хоть попробует!

 

мы такое в классе 7ом решали

 

Это замечательно конечно, но нужно решение)

 

если я прально понял то

PHP:

DEL-0
DC1-1
DC2-2
DC3-3
DC4-4
NAK-5
SYN-6
ETB-7
CAN-8
EM-9


тогда вот код

PHP:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var a : string;
 b:integer;
begin
write('vvedite chislo= ');
readln(a);
if a='DEL' then
b:=0;
//
if a='DC1' then
b:=1;
//
if a='DC2' then
b:=2;
//
if a='DC3' then
b:=1;
//
if a='DC4' then
b:=1;
//
if a='NAK' then
b:=5;
//
if a='SYN' then
b:=6;
//
if a='ETB' then
b:=7;
//
if a='CAN' then
b:=8;
//
if a='EM' then
b:=9;
write('vveli:=');
writeln(b);
write('press to enter...');
readln;
end.