ДАМ 50 БАЛЛОВ ЗА ОТВЕТ 1.Вася пошёл в магазин,купил N ручек,по X рублей. Найти стоимость покупки. 2.Для двух целых чисел надо определить являются ли они четными или нет. 3.Вывести в столбик 5 раз слово информатика. ПРОШУ ВАС РЕШИТЕ СРОЧНО

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