50 за ответ 1.вася пошёл в магазин,купил n ручек,по x рублей. найти стоимость покупки. 2.для двух целых чисел надо определить являются ли они четными или нет. 3.вывести в столбик 5 раз слово информатика вас решите

Var i,f:integer;
a,b,c:real;
begin
begin
writeln('Введите количество ручек и цену за 1 ручку');
readln(a,b);
c:=a*b;
writeln('Цена за покупку: ',c);
end;
begin
for i:=1 to 5 do
writeln('Информатика');
end;
begin
writeln('Введите число: ');
readln(f);
if (f mod 2=0 ) then writeln('Число четное') else writeln('Число нечетное');
end;end.