Адача1. составьте блок схему и программу где введёное вещество число нужно записать в денежном формате например число 54.24 представить как 54тенге 24тиыны

Var a:real;
begin
write('введите число: ');read(a);
writeln(int(a),' тенге  ', round(100*frac(a)),' тиыны');
end.