program phytagoras

uses crt;
var a,b,c:real;
begin
clrscr;
textcolor(yellow);
writeln (’welcome’);
writeln (’This is an Aplicative Program to Count Phytagoras’);
writeln (’Created by: airinda ektria 070793 IVB’);
writeln (’masukkan a:’); readln (a);
writeln (’masukkan b:’); readln (b);
c:=sqrt((a*a)+(b*b));
writeln (’nilai c adalah:’, c:2:2);
writeln;
if a>0 then
begin
writeln (’a merupakan bilangan asli’);
end
else if a<0>0 then
begin
writeln (’c merupakan bilangan asli’);
end
else if c<0 then
begin
writeln ('c bukan bilangan asli');
end;
readln;
end.