program h;
uses Crt;
var x:string;
i: integer;
begin
clrscr;
writeln('MMMM MMMM AAA DDDD EEEEE BBBBB YY YY ');
writeln('MM MM MM AA AA DD D EE BB BB YY YY o ');
writeln('MM MM MM AA A AA DD D EEEEE BBBBB YY ');
writeln('MM MM AAA AAA DD D EE BB BB YY ');
writeln('MM MM AA AA DDDD EEEEE BBBBB YY o ');
writeln; writeln; writeln;
writeln('IIIIII DDDD AAA NN NN ZZZZZ IIIIII VV VV ');
writeln(' II DD D AA AA NNN NN A Z II VV VV ');
writeln(' II DD D AA A AA NN N NN N Z II VV VV ');
writeln(' II DD D AAA AAA NN NNN D Z II VV VV ');
writeln('IIIIII DDDD AA AA NN NN ZZZZZ IIIIII VVV ');
writeln; writeln; writeln;
write('if you wanna hear the "Yonatan-Hakatan"song Type');
writeln(' yonatan or prees exit to exit.');
readln (x);
if x='yonatan' then
begin
Sound(850); Delay(350);
NoSound;
sound(700); delay(350);
nosound; delay(50);
sound(700); delay(550);
NoSound; delay(50);
sound(750); delay(350);
sound(625); delay(350);
NoSound; delay(50);
sound(625); delay(550);
nosound; delay(50);
sound(570); delay(350);
sound(635); delay(350);
sound(700); delay(350);
sound(750); delay(350);
sound(850); delay(350);
NoSound; delay(30);
sound(850); delay(350);
NoSound; delay(30);
sound(850); delay(550);
NoSound; delay(100);
Sound(850); Delay(350);
NoSound;
sound(700); delay(350);
nosound; delay(50);
sound(700); delay(550);
NoSound; delay(50);
sound(750); delay(350);
sound(625); delay(350);
NoSound; delay(50);
sound(625); delay(550);
nosound; delay(50);
sound(570); delay(350);
sound(700); delay(350);
sound(850); delay(350);
nosound; delay(30);
sound(850); delay(350);
sound(570); delay(600);
nosound;
end;
for i:=1 to 10 do
writeln;
writeln (' ');
writeln (' bye bye');
writeln (' ');
for i:=1 to 10 do
writeln;
readln;
end.
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
