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

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

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

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