Впаскале :
петя и вася играют в компьютерную игру они собирают волшебные камни, синий камень - 5 очков жёлтый - 10 и красный - 15 очков. прочитать с экрана сколько синих, жёлтых и красных камней собрал петя, а сколько вася. сосчитать все очки и напечатать кто выиграл, заранее < 3

{{15x+20y+30z=270}
var x,y,z, y1,x1:integer;
begin
  x1:=270 div 15;
  for x:=1 to x1 do
  begin
    y1:=(270-15*x) div 20;
    for y:=1 to y1 do
     begin
        z:=(270-15*x-20*y) div 30;
        if 1(5*x+20*y+30*z=270)  and (z<>0) then
        writeln(x:5,y:5,z:5,'proverka',15*x+20*y+30*z=270);
      end;
   end;
end.

ответ
    2    3    6proverkaTRUE
    2    6    4proverkaTRUE
    2    9    2proverkaTRUE
    4    3    5proverkaTRUE
    4    6    3proverkaTRUE
    4    9    1proverkaTRUE
    6    3    4proverkaTRUE
    6    6    2proverkaTRUE
    8    3    3proverkaTRUE
    8    6    1proverkaTRUE
   10    3    2proverkaTRUE
   12    3    1proverkaTRUE
Проверку можно убрать. Используем два цикла для перебора, а z -вычисляем

Идея следующая:
1.вводим год, месяц, день
2. проверяем, что год >=1900 и меньше 9999 при месяце меньшем 12 и год >=1900 и меньше 9998 при месяце равном 12. Если введенный год не удовлетворяет условию, то предлагаем ввести год заново до тех пор, пока условие не будет выполнено. Если введенный год удовлетворяет условию, то продолжаем проверку.
3. проверяем, что месяц от 1 до 12. При этом в переменную srav запомним максимальное число дней в введенном месяце с учётом високосного года. Если введенный месяц не удовлетворяет заданному условию, то предлагаем ввести месяц заново до тех пор, пока условие не будет выполнено. Если условие выполнено идём дальше.
4. проверяем, что день не превышает максимального числа дней (srav) в введенном месяце.Если день не удовлетворяет заданному условию, то предлагаем ввести день заново до тех пор, пока введенное значение не будет удовлетворять условию. Если условие выполнено, то продолжаем.
5. Выведем на экран введенную дату.
6. Вычисляем и выводим на экран следующий день за введенным, не забывая, что:
- если введен день равный последнему дню месяца, то следующий день - это 1 число следующего месяца.
- если введен последний день последнего месяца, то следующий день -это 1 число 1 месяца следующего года.