Fungsi If ... Then | Tutorial | Free Pascal

Free Pascal Tutorial

Yak,, kembali lagi blogger bersama saya. Nah, kali ini kita akan membahas mengenai fungsi If ... Then dari Pascal.
Sebenarnya, ini fungsi yang tidak terlalu susah, jadi logikanya. Jika ini Maka itu atau If bla bla bla Then bla bla bla.

Secara umum, fungsi If-Then pada Free pascal ditulis seperti ini..

if (kondisi) then
begin
    (perintah-perintah)
end; 

Kondisi yang dimaksud bisa beragam, tergantung sesuai kebutuhan yang diminta.
Sebenarnya, fungsi If-Then diatas masi termasuk fungsi kompleks, karena setelah Then, kita masih menulis sebuah program di dalam inti program, diawali dengan begin.
Kiranya beginilah fungsi If-Then pascal yang sederhana

if (kondisi) then (perintah-perintah)

Mudah bukan??
Nah saatnya untuk latihan agar mempertajam pengetahuan kita.
Beginilah soalnya :

Abu adalah anak kelas 1 sd, dia diberi PR oleh gurunya mengenai bilangan positif. Namun karena malas, Abu tidak tahu apa bilangan positif itu. Nah, kamu sebagai kakaknya yang bisa komputer setidaknya membantu. Jadi buat lah sebuah program untuk membantu Abu menyelesaikan PR nya.

Format Masukan

Masukan bilangan bilangan integer

Format Keluaran

Jika bilangan yang dimasukkan lebih dari 0, tulis bilangan itu, jika tidak, jangan tulis apa-apa

Input

4

Output

4

Contoh Input

-1

Contoh Output

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : integer;
 
begin
   readln (a);
   if a > 0 then writeln (a);
end.