Part 6 : Program Tambahan_Nilai

uses wincrt;
Var
y, x: Integer;
m: Real;

Begin
writeln('celcius':2, 'fahrenheid':20);
writeln('==============================');
write('masukan nilai n='); readln(y);

Begin
For x:=0 to y do
begin
m:=(x*1.8)+32;
if x=3 then
writeln ('maaf tidak bisa tampil')
else if x=4 then
else
writeln (x:1, m:20:3);
end;
end;
end.

Hasil :