№ 1 задача заменить слово ''вирус'' на ''антивирус'',

№ 2 задача найти произведение чисел натурального числа.
ИНФОРМАТИКА, PASCAL ABC

№1Если не требуется ввод числа с клавиатуры, то вот:var a: String;begina:='вирус';Write('анти',a);end.Если же требуется, то вот:var a: String;beginWrite('Слово:');Readln(a);Write('анти',a);end.№2var a,b,c:integer;beginWrite('Первое число: ');Readln(a);Write('Второе число: ');Readln(b);c:=a*b;Write('Результат: ',c);end.