mantra rasa

program Nilai; uses wincrt; var N:integer; begin write('masukkan nilai adalah '); readln(N); begin if N<40 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else if N<60 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else if N<70 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else if N<80 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else write ('A'); end; end.

program suhu; uses crt; var C,F,R,K:real; begin         write ('Masukkan suhu dalam Celcius: ');         read(C);         F:=(9/5*C+32);         writeln('Suhu dalam Fahrenheit: ',F:5:2);         R:=(4/5*C);         writeln('Suhu dalam Reamur: ',R:5:2);         K:=(C+273);         writeln('Suhu dalam Kelvin: ',K:5:2);         readln(F,R,K); end.

2. PROGRAM OUTPUT SIM Program sim; uses wincrt; var A,B,C,D,E,F,G,H,I: String; Begin Writeln('====SURAT IJIN MENGEMUDI===='); read(A); Writeln('_________ Nama : '); readln(B); Writeln('| | Alamat : '); readln(C); Writeln('| | TempatLahir : '); readln(D); Writeln('| | TanggalLahir : '); readln(E); Writeln('| | Tinggi : '); readln(F); Writeln('|________| Pekerjaan : '); readln(G); Writeln('No.SIM : '); readln(H); Writeln('Berlaku s/d : '); readln(I); End.

Program lingkaran; Uses wincrt; Var R, L, K: real; Begin Write('Masukkan jari-jari adalah '); Readln (R); L:=(22/7*R*R); Write('Luas lingkaran adalah ', L:5:2); K:=(22/7*R*2); Write ('Keliling lingkaran adalah ',K:5:2); Readln; End.