var
n : integer;
begin
write('введите номер месяца ');
readln(n);
case n of
1, 2, 12 : writeln('зима');
3..5 : writeln('весна');
6..8 : writeln('лето');
9..11 : writeln('осень');
else writeln('за гранью разумного');
end;
end.
#encoding: utf-8
n = input ("Сколько строк вам напечатать (n > 0) ?")
if n <= 0 :
print "До свидания!"
else:
k = 10
for i in range(n + 1):
for j in range(i):
print k,
k += 1
print
Var n, f, o: string; a, i: integer;
begin
write('Введите фамилию ');
Readln(f);
write('Введите имя ');
Readln(n);
write('Введите отчество ');
Readln(o);
a := length(n) + length(f) + length(o);
Writeln('Длина имени, фамилии и отчества равна ', a);
Writeln('Инициалы ', f[1], '. ', n[1], '. ', o[1], '. ');
a := 0;
for i := 1 to length(f) do
if f[i] = 'и' then a := a + 1;
Writeln('Количество букв и в фамилии ', a);
<span>end.</span>