Informatika és tudomány

lásd topic
  • zvaragabor
    #13
    program matyi;
    uses crt;
    var s:string;

    begin
    write('Milyen szinu Mátyás serege: ');
    readln(s);
    if (s='fekete') then writeln('Helyes')
    else writeln('Nem jo');
    end.