Данны 3 числа найти сумму 1 и 3 числа и произведения 1 и 2 числа

СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

5 КЛАСС ТЕМА ЛИНЕЙНЫЕ ПРОГРАММЫ
И ПОНЯТНЕЙ ПИШИТЕ

И что?

И ТО ПЯТЬ РАЗ ПИСАТЬ???

Можно 2 раза написать.

beginvar a1, a2, a3 : integer; readln (a1);readln (a2);readln (a3);writeln (a1+a3);writeln (a1*a2);end.

ВСЕ ТАК ПОН СПС

beginvar a1, a2, a3 : integer;writeln ('Введите первое число'); readln (a1);writeln ('Введите второе число'); readln (a2); writeln ('Введите третье число');readln (a3);writeln ('Сумма= ',a1+a3);writeln ('Произведение= ',a1*a2);end.