СОСТАВЬТЕ ПОЖАЛУЙСТА ПРОГРАММУ В ПАСКАЛЕ ПО ИНФОРМАТИКЕ ЗА 8 КЛАСС.​

var a: real; //цена за ручку

     b: integer; // количество ручек

     c: real; // стоимость покупки

begin

 writeln('Введите цену за одну ручку: ');

 readln(a);

 writeln('Введите количество купленных ручек: ');

 readln(b);

 с := a * b;

 writeln('Стоимость покупки ',c);

end.

var n,i,k,a:integer;beginwriteln('введите количество чисел');readln(n);a:=0;for i:=1 to n do begin writeln('введите ',i:1,'-е число'); readln(a); if a mod 2=0 then k:=k+1; end;writeln('кол-во четных чисел ',k);readln;end.