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

Uses crt; var a: string; begin writeln('введите месяц'); readln(a); if a='май' then writeln('весна пришла! ') else writeln('люблю весну! '); end. когда будешь проверять слово май вводи на как в программе

Var a: array[1..30] of integer; i,mc,mn: integer; begin for i : = 1 to 30 do       begin       a[i]: =random(1001);       if a[i] mod 2 = 0 then mc: =a[i]       else mn: =a[i];       write(a[i],' ');       end; writeln; for i: = 1 to 30 do       if (mc< a[i])and(a[i] mod 2 = 0) then mc: =a[i]       else if (mn< a[i])and(a[i] mod 2 < > 0) then mn: =a[i]; writeln(mc,' - ',mn,' = ',mc-mn); end.

Var n: integer; begin writeln('введите номер дня недели'); read(n); case n of 1:   begin   writeln('чтение');   writeln('труд');   writeln('музыка');   writeln('физ-ра');   end; 2:   begin   writeln('изо');   writeln('');   writeln('');   writeln('окружающий мир');   end; 3:   begin   writeln('');   writeln('краеведенье');   writeln('');   writeln('мхк');   end; 4:   begin   writeln('обж');   writeln('информатика и икт');   writeln('');   writeln('');   end; 5:   begin   writeln('биология');   writeln('');   writeln('обществознание');   writeln('');   end; 6:     begin   writeln('');   writeln('');   writeln('черчение');   end; 7:   begin   writeln('! ');   end; end; end. var a: integer; begin write('a = '); readln(a); if a mod 2 = 0 then writeln(a,' - чётное число') else writeln(a,' - нечётное число') end. var a: integer; begin writeln('введите трёхзначное число'); readln(a); writeln(a mod 10,(a div 10) mod 10,a div 100); end.