Составить программу ввода с клавиатуры трех чисел и вывода на экран из произведения

Program Name;Var a, b, c, pr: integer;Begina:= 3;b:= 5;c:= 6;pr:= a*b*c;Write( ' proizvedenie=', pr);End.