Mu4a4os, похоже на паскаль, тока я вот fun и (*,*) там не помню. может фортран

pascal - remix by frostpain

паскаль...

program answer
uses CRT, Fotik, C2H5OH;
var cam: integer;
C2H5OH: real;
begin
repeat
randomize timer;
analyze ('predlozsh');
SD_Card.memory:= 32mb (!)
resolution:= 1024x768;
quality:= max(enabled);
until (понял,нет?!);

if 5_mad_pants.C2H5OH =< 0 AND 5_mad_pants.Tea_with_lemon > 0 THEN qoto(PS) ELSE begin
'predlozsh';
readln;
quit;
end;
PS: IF (-1)<>(0) THEN write(frostpain,'фотик я тебе полюбас дам,потому что у меня будет к тебе просьба;)');
readln;

END.

ааааааа........

пять_безумных_штанин, покажу сестре,пусть усомница,что я самый страшный комп задрот в этом городе.

да ну,это все нубизм... вот елси б я тебе на ассемблере написал это или в hex, вот тогда да....:)

Program Iam GLAD
Read(*.*)program answer
wrtite(*.*) 'понял;)'
read(*.*) 'SD_Card.memory:= 32mb (!)'
write(*.*) ':('
read(*.*)

Исходное сообщение x-PlasticBunchOfGrapes-x
ааааааа........

write(*.*) 'фатал ерор недопустимый смысл поста'
write(*.*) 'фатал ерор недопустимый смысл поста'
write(*.*) 'фатал ерор недопустимый смысл поста'
write(*.*) 'фатал ерор недопустимый смысл поста'

sudo shutdown -P -now
password: ******
sending term to all processes
sending kill to all processes