Wer so was macht, gehört abgemahnt und im Wiederholungsfall gefeuert.
Oder macht Ihr auch das?
Code:
PROCEDURE Main;
VAR
myString: String;
i: Integer;
BEGIN
Move('1234',i,4);
IF i = 1234
THEN Writeln('OK!')
ELSE Writeln('Shit!')
END;
Man kann mit einem Hammer Nägel in die Wand oder sich auf den Daumen hauen. Ich ziehe ersteres vor. Na ja, war
OT und damit Ende Gelände.