Мне задали сделать задачу по Turbo Pascal, но я забыл что нужно писать в var и READ. подскажите пожалуйста.

Program MyProgram
// сколько положено
const
nPen = 1;
nRule = 2;
nXBook = 4;

// сколько есть
var
tPen, tRule, tXBook : integer;
Pupels : integer;

begin
writeln('Skolko ru4ek? ');
readln(tPen);
writeln('Skolko lineek? ');
readln(tRule);
writeln('Skolko tetradey? ');
readln(tXBook);
writeln('Ru4kami obespe4eny ' + IntToStr(tPen div nPen) + ' wkolnikob');
writeln('Lineykami obedpe4eny ' + IntToStr(tRule div nRule) + ' wkolnikob');
writeln('Tetradkami obespe4eny ' + IntToStr(tXBook div nXBook) + ' ' +
'wkolnikob');
readln;
end.

Что-то типа этого должно быть.. .
Можно конечно еще и с помощью массивов попробывать сделать

Доброго времени суток.

Если разделить число закупленных линеек на 2 и взять целую часть от деления, то получим число обеспеченных наборов. Аналогично и с тетрадями, только их надо делить на 4.

Т. о. задача сводится к нахождению минимального из трех чисел: числа ручек (с) , числа полных наборов, обеспеченных тетрадями (b div 4) и числа наборов, обеспеченных линейками (a div 2)

Найти минимум трех величин, который и определит число полных наборов, попробуйте самостоятельно.

Чтобы ответить на ваш дополнительный вопрос, надо видеть текст вашей программы.

Удачи!

в var нужно писать список переменных, используемых в программе, и их тип (integer,real, и тд)
в read пишешь те переменные, которые нужно ввести в программу. В твоей программе, например, нужно read(a,b,c)

чтобы из черного окошка выйти нажми Ctrl+Pause break (у тебя на беск. цикл прога налетела, обычное дело)
program Program

var
tRuch, tLine, tTetr : integer;
min : integer;

begin
writeln('Сколько ручек? ');
readln(tRuch);
writeln('Сколько линеек? ');
readln(tLine);
writeln('Сколько тетрадей? ');
readln(tTetr);
min:=tRuch;
If (tLine div 2)<min>> ',min);
readln;
end.