pascal diagram

program cas;
uses crt;
var a:real;
b:integer;

begin
clrscr;
writeln('zadaj v akej jednotke chces zadat cas');
writeln('1 = Sekunda');
writeln('2 = Minuta');
writeln('3 = Hodina');
readln(b);
if b = 1 then
begin
writeln('zadaj cas (sekunda)');
readln (a);
writeln ('zadany cas je:');
writeln('hodin: ',a/3600:5:2);
writeln('minut: ',a/60:5:2);
writeln('sekund: ',a:5:2);
end;
if b = 2 then
begin
writeln('zadaj cas (minuta)');
readln (a);
writeln ('zadany cas je:');
writeln('hodin: ',a/60:5:2);
writeln('minut: ',a:5:2);
writeln('sekund: ',a*60:5:2);
end;
if b = 3 then
begin
writeln('zadaj cas (hodina)');
readln (a);
writeln ('zadany cas je:');
writeln('hodin: ',a:5:2);
writeln('minut: ',a*60:5:2);
writeln('sekund: ',a*3600:5:2);
end;
readln;
end.