Создать блок схему на языке паскаль пересчёта из дюймов в сантиметры (1см=2.54 дюйм)

Var
a:integer;
p:real;
const
d=2.54;
begin
write('Введите число для перевода (см→дюйм) : ');
readln(a);
p:=a*d;
writeln(p);
readln;
end.