Найти сумму и произведение 4 чисел ведённых с клавиатуры

{Найти сумму и произведение 4 чисел ведённых с клавиатуры }
var
    i, n: integer;
    s, p, num: real;

begin
    n := 4;
    p := 1;
    for i := 1 to n do
    begin
        read(num);
        s := s + num;
        p := p * num;
    end;
    writeln(s,' ', p);
end.

Блок-схема в doc-файле. В цикле от 1 до 4 вводим числа, находим произведение и сумму, выводим на экран.