Условия. Паскаль

При пуске, начиная с третьего условия и далее перекидывает на else

program Deutsch_Personalien;
uses Crt;
var x:string;

begin
ClrScr;
writeln('фамилия');
write(x);
read(x);
if x='der Name' then writeln('Richtig') else writeln('Falsch: der Name');
ReadKey;

ClrScr;
writeln('имя');
readln;
{ writeln(x);}
readln(x);
if x='der Vorname' then writeln('Richtig') else writeln('Falsch: der Vorname');
ReadKey;

ClrScr;
writeln('отчество');
readln;
{ writeln(x);}
readln(x);
if x='der Nachname' then writeln('Richtig') else writeln('Falsch: der Nachname');Readkey;

end.

По дате

По рейтингу

kapitan_gugl

Искусственный Интеллект

12лет

А вопрос в чем? Как написала программу, так она работает. Тебе надо, чтобы как-то по-другому работала? Так ты же не написала, как именно надо, откуда мы знаем, чем помочь?
И что значит "начиная с третьего условия и далее"? Далее третьего условия - только Readkey; и end.

krab_bark

Искусственный Интеллект

12лет

program Deutsch_Personalien;
uses Crt;
var x:string;
begin
ClrScr; writeln('фамилия'); readln(x);
if x='der Name' then writeln('Richtig') else writeln('Falsch: der Name');
writeln('Нажмите любую клавишу'); ReadKey;
ClrScr; writeln('имя'); readln(x);
if x='der Vorname' then writeln('Richtig') else writeln('Falsch: der Vorname');
writeln('Нажмите любую клавишу'); ReadKey;
ClrScr; writeln('отчество'); readln(x);
if x='der Nachname' then writeln('Richtig') else writeln('Falsch: der Nachname');
writeln('Нажмите любую клавишу'); Readkey;
end.