№1 заменить слово ''вирус'' на ''антивирус'', № 2 найти произведение чисел натурального числа. информатика, pascal abc

№1
Если не требуется ввод числа с клавиатуры, то вот:
var a: String;begina:='вирус';Write('анти',a);end.

Если же требуется, то вот:
var a: String;begin
Write('Слово:');
Readln(a);Write('анти',a);end.

№2
var a,b,c:integer;
begin
Write('Первое число: ');
Readln(a);
Write('Второе число: ');
Readln(b);c:=a*b;
Write('Результат: ',c);
end.