СОСТАВЬТЕ ПОЖАЛУЙСТА Программку В ПАСКАЛЕ ПО ИНФОРМАТИКЕ ЗА 8 КЛАСС.

Var n,i,k,a:integer;
begin
writeln('введите количество чисел');
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.

var a: real; //стоимость за ручку

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

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

begin

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

 readln(a);

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

 readln(b);

 с := a * b;

 writeln('Цена покупки ',c);

end.