Bahasa Pemrograman Pascal kelas MULTIMEDIA

program cuaca_sekarang;
uses
wincrt;
var
cuaca: string;
begin
write('cuaca hari ini mendung atau cerah?');readln(cuaca);
if cuaca='mendung' then
write('hari ini hujan')
else
write('hari ini panas');
end.



program password;
uses Wincrt;
var n : string;
begin
write ('masukkan pasword');readln(n);
if n = 'nobi' then
write ('pasword benar')
else write ('pasword salah');
end.

************************************
program perulangan_janji;
uses
wincrt;
var
n:integer;
i:integer;
begin
write('masukan jumlah nilai yang akan di ulang=');readln(n);
for i :=1 to n do
writeln('saya berjanji tidak nakal lagi');
end

*********************************************
 Program cetak_Bilangan;
Uses wincrt;
Var a:byte;
begin
for  a :=1 to 5 do
Write(a);
Write('Selesai');
End.
**************************************************
program pilih_hari;
uses
winCrt;
var
pilih:integer;
begin
write('input hari ke=    ');readln(pilih);
case pilih of
1 : write ('senin');
2 : write ('selasa');
3 :  write ('rabu');
4 : write ('kamis');
5 : write ('jumat');
6 : write ('sabtu');
7 : write ('minggu');
end;
end.
*********************************************

program ganjilgenap;
Uses
Wincrt;
var n : integer;
begin             
Write('masukkan bilangan= ');readln(n);
if n mod 2 = 0 then
write ('ini bilangan genap')
else write (n,' ini bilangan ganjil');
end.

**************************************************
program bilanganterkecil;
uses
wincrt;
var
n: integer;
i : integer;
begin
write ('masukkan nilai A = ');readln(n);
write('masukkan nilai b = ');readln(i);
if n < i then
write('bilangan terkecil adalah b=',n)
else
write ('bilangan terkecil a=',i);
end.

*****************************************************
program kode_pelajaran;
uses
wincrt;
var
pilih:integer;
begin
write ('masukkan kode mata pelajaran=');readln(pilih);
case  pilih of
1 : write('pascal');
2: write ('pemrogramana visual video 2010');
end;
end.