Program grafika; uses crt; var i:integer; begin clrscr; writeln(`TextBackground'); for i:=1 to 16 do begin TextBackground(i); writeln(`Cześć',i,''); end; readln; end.
|
Program alfabet; Uses crt; Var i:char; begin clrscr; for i:='Z' downto `A' do write(i); readln; end.
|
Program grafika; Uses crt; var i:integer; begin clrscr; writeln(`TextBackground'); for i:=1 to 16 do begin TextBackground(i); Writeln(`Cześć',i,''); end; readln; end. |
Program alfabet; Uses crt; Var i:char; begin clrscr; for i:='Z' downto `A' do write(i); readln; end.
|
Program grafika; uses crt; var i:integer; begin clrscr; writeln(`TextBackground'); for i:=1 to 16 do begin TextBackground(i); writeln(`Cześć',i,''); end; readln; end.
|
Program alfabet; Uses crt; Var i:char; begin clrscr; for i:='Z' downto `A' do write(i); readln; end.
|