Задание1 Delphi

Program Задание1;

Var
    Name: String;
Begin
    Writeln('Введите сокращенное имя:');
    Readln(Name);
    If Name = 'Вова' Then
        Writeln('Владимир')
    Else
        If Name = 'Костя' Then
            Writeln('Константин')
        Else
            If Name = 'Дима' Then
                Writeln('Дмитрий')
            Else
                If Name = 'Паша' Then
                    Writeln('Павел')
                Else
                    If Name = 'Юра' Then
                        Writeln('Юрий')
                    Else
                        Writeln('Я с вами не знаком!');
    Readln(Name);
End.