Срочно, помогите по информатике
Написать программы и блок-схемы к задачам
1) Сумма 3х целых чисел
2) Произведение 3 целых чисел
3) Разделить 2 целых числа

1)var a,b,c,d:real;beginwriteln('Введите 3 числа');readln(a,b,c);d := a + b + c;writeln('сумма чисел равна',d);end.ну илиvar a,b,c,d:real;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);writeln('Введите третее число');readln(c);d := a + b + c;writeln('сумма чисел равна',d);end.2)var a,b,c,d:real;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);writeln('Введите третее число');readln(c);d := a * b * c;writeln('произведение чисел равна',d);end.3)var a,b,c:real;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);c := a : b;writeln('деление двух чисел равна',c);end.В третем могу ошибится