program biodata

Program biodata;
Uses crt;
var
nama,tanggallahir,makes,mikes,hobi: string;
Begin
clrscr;
Writeln('siapakah nama kamu?');readln(nama);
Writeln('kapankah tanggal lahir kamu?');readln( tanggallahir);
Writeln('apa makanan kesukaan kamu?');readln(makes);
Writeln('apa minuman kesukaan kamu?');readln(mikes);
Writeln('apa hobi kamu?');readln(hobi);
clrscr;
writeln ('nama saya adalah ', nama);
writeln ('tanggal lahir saya adalah ', tanggallahir);
writeln ('makanan kesukaan saya adalah ', makes);
writeln ('minuman kesukaan saya adalah ', mikes);
writeln ('hobi saya adalah ', hobi);

Readln;
End.

program teste_if__simples_1;
uses crt;
var A,B,C :real
begin
writeln ('digite um valor para A:');
readln (A);
writeln ('digite um valor para B:');
readln (B);
writeln ('digite um valor para C:');
readn (C);
if (A+B < C) then
writeln ('A soma de A com B e menor do que  C!');
writeln ('Tchau.....')'
readln;
end.

program teste_if__simples_1;
uses crt;
var
A,B,C :real;
begin
writeln ('digite um valor para A:');
readln (A);
writeln ('digite um valor para B:');
readln (B);
writeln ('digite um valor para C:');
readln (C);
if (A+B < C) then
begin
writeln ('eu calculei A + b < c e concloi que : ');
writeln ('A soma de A com B e menor do qque C!;');
end;
writeln ('Tchau.....');
end.

Program kelulusan_siswa;
Uses crt;
Var
Nama : string [30];
Nilai : real;
Ket : string [20];

Begin
clrscr;
Write('Nama siswa='); readln(Nama);
Write('Nilai siswa ='); readln(Nilai);
If (nilai >70) then
Ket :='lulus'
Else
Ket :='tidak lulus';
Writeln ;
Writeln ('_______________________');
Writeln ('Nama siswa :',Nama);
Writeln ('Nilai siswa :', Nilai :7:6);
Writeln ('Keterangan:', Ket);
Readln;
End.


Program Contoh_Awal;
Uses CRT;
Var i,j,k : integer;
Begin
 ClrScr;
 Write('masukkan nilai i dan j : ');
 Readln(i,j);
 k:=i+j;
 Writeln('nilai k : ',k);
 Readln;
End.

program hello;
(* File : HELLO.PAS *)
 (* menuliskan Hello ke layar *)
uses crt;
begin
CLRSCR;
 writeln ( 'hello ') ;
 READLN;
end.