Паскаль. Помогите составить программу.

ну давай попробуем. все мои записи на русском языке, при работе на паскале в транслит. . код может выдавать некоторые ошибки, пишу сюда не компилируя.

program test;
uses CRT;
var
a,b,c,itog,z: integer; answer:string[1];
begin
writeln('Начнем? (Y/N)');
readln(answer);
if answer = 'N' then EXIT // если нет то выход
else
begin
itog:=0; // начальное число правильных ответов
Z:=0;
while answer<> 'N' do // пока ответ не НЕТ делать
begin
writeln(' введите через пробел 2 числа уменьшаемое и вычитаемое');
read (a,b);
writeln('введите разность');
readln(c);
Z:=Z+1; // вопрос задан
if с = a-b then
begin // правильно
itog:=itog+1;
writeln('правильно! ');
end
else writeln('не правильно! ');

writeln('продолжим? (Y/N)');
readln (answer);

end;
writeln('ваш итог: ');
writeln('колличество задач: ',Z);
writeln('правильно: ', itog);
end;
end.

вродебы вот так.
ps на счет оценки вам скажу, у каждого свои критерии оценивания

сделать вещественное число с 16 знаками после запятой и фиг кто посчитает :)

программа простая по сути:
u,v,r,kol,kolp:integer; q:char;
label l;
begin
kol:=0;kolp:=0;
write('Начнем? (д/н) '); readln(q);
if (q='н') or (q='n') then exit;
l: write('Введите через пробел два числа, уменьшаемое и вычитаемое: ');readln(a,b);
write('Введите разность: '); readln(r); inc(kol);
if (a-b=r) then begin inc(kolp); writeln('Правильно. Продолжим? (д/н) '); readln(q); if q='д' then goto l end
else begin writeln('Неправильно. Продолжим? (д/н) : '); readln(q); if q='д' then goto l end;
writeln('Количество задач: ',kol);
writeln('Количество правильных ответов: ',kolp);
readln
end.

Как оценка вычисляется? Из чего складывается?

видимо из среднего арифметического между правильными и не правильными ответами пользователя..