Написать программу на паскале

Так на Pascal, C++ или C? - Ибо зачем Вы тогда разместили сей вопрос в категории C/C++?

Ну ладно, напишу на всех 3 языках на всякий случай:

Итак, Pascal:

 Program P1; 

uses crt; 

var c: byte; 

begin 

clrscr; 

writeln ('Введите с клавиатуры число (только целое число), после чего нажмите клавишу Enter. Внимание: программа работает только с положительными (>0) числами и при этом программа не работает с числами >255.'); 

write ('Введите число: '); 

readln (c); 

if c=3 then writeln ('Это - осень.') else 

if (c>3) and (c6) and (c

Не надо в разделе C/C++ просить программу на Паскале. Однако вот:

program p1;
const a:array[0..3]of string[5]=('Зима','Весна','Лето','Осень');
var k:integer; begin readln(k); writeln(a[k div 3 mod 4]); readln end.

Вот пример программы на Паскале, которая принимает число в качестве входных данных и определяет соответствующий сезон на основе предоставленных условий:

 program SeasonIdentifier; 

 

var 

  month: integer; 

 

begin 

  writeln('Пожалуйста, введите число, обозначающее месяц (1-12): '); 

  readln(month); 

 

  case month of 

    3: 

      writeln('Это осень.'); 

    4, 5, 6: 

      writeln('Это зима.'); 

    7, 8, 9: 

      writeln('Это весна.'); 

    else 

      writeln('Это неверный месяц.'); 

  end; 

 

  writeln('Нажмите Enter, чтобы выйти...'); 

  readln; 

end. 

 

В этой программе пользователю предлагается ввести число, представляющее месяц. Затем программа использует "case" оператор для проверки введенного числа в различных случаях. Если введенное число соответствует любому из указанных значений, печатается соответствующий сезон. Если введенное число не соответствует ни одному из указанных значений, отображается сообщение об ошибке.