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

Question

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

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

Answer 1

№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.