В нашем доме 29 семей. 13 семей выписывают газеты, 10 семей - журналы. Лишь 5 семей - и журналы, и газеты. Сколько семей не выписывают ничего?

//вот так компилируется без ошибок

uses crt;
var k:integer;
n:integer;
begin
clrscr;
k:=0;
writeln('Тест по теме "Циклы"');
writeln('Вопрос 1. Алгоритм называют циклическим, >');
writeln('если в нем:');
writeln('1)Реализуется многократно повторяющаяся');
writeln(' последовательность действий');
writeln('2)Используются повторяющиеся праметры');
writeln('3)Много раз используются одни и те же операторы');
writeln('4)Используются команда выбора');write('Введите номер правильного ответа:');
read(n);
if n=1 then k:=k+1;
writeln('Вопрос 2. Сколько раз будет выполнятся цикл,<');
writeln('если начальное значение параметра -6');
writeln('конечное значение 6,');
writeln('шаг изменения параметра равен 3');
writeln('1)6 раз');
writeln('2)5 раз');
writeln('3)4 раз');
writeln('4) Не выполнится ни разу');
write('Введите номер правильного ответа:');
read(n);
if n=2 then k:=k+1;
case k of
1,2:writeln('Плохо');
3: writeln('Удовлетворительно');
4: writeln('Хорошо');
5: writeln('Отлично');
end;
readkey;
end.

Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
program Project1;
var
TotalA, TotalB, SoldA, SoldB : integer;
priceA, priceB, sum: real;
begin
Write(' Введите цену товара "А":');
Readln(priceA);
Write(' Введите количество товара "А" в начале рабочего дня:');
Readln(TotalA);
Write(' Введите количество проданного товара "А":');
Readln(SoldA);
Write(' Введите цену товара "Б":');
Readln(priceB);
Write(' Введите количество товара "Б" в начале рабочего дня:');
Readln(TotalB);
Write(' Введите количество проданного товара "Б":');
Readln(SoldB);
sum:= ((priceA*SoldA)+(priceB*SoldB));
writeln('Выручка от продажи двух товаров за день:', sum:5:2);
readln;
end.