A:array[1..10] of integer;
b, d:array[1..10] of string;
c:array[1..10] of string;
m, n, i, k, t :integer;
begin
for i:=1 to 10 do
readln(a[i]);
readln(b[i]);
readln(c[i]);
t:=1;
for i:=1 to 10 do
if (2014-a[i])>65 then begin d[t]:=b[i]; t:=t+1; end;
for i:=1 to 10 do
if c[i]='м' then m:=m+1
else n:=n+1;
m:=m\10*100;
n:=n\10*100;
for i:=1 to t do
writeln(d[i]);
writeln(n);
writeln(m);
readln;
end.
МОЖНО ЗДЕЛАТЬ ТАК СКАЧАТЬ ФОТО С ФРАНЦИИ НА ПРЕЗЕНТАЦИ И НАПИСАТЬ О НЁМ РАСКАЗ НАПРИМЕРФранция. Её воздух наполняет непередаваемым чувством свободы и ощущением влюбленности во весь мир. Французский язык, французская кухня, французская мода, французский образ жизни – так много причин, чтобы влюбиться в эту необыкновенную страну. Мало кто может искренне сказать, что не хотел бы побывать здесь хотя бы раз в жизни.Культурное наследие Франции не просто богато, очень богато. Франция подарила миру великих математиков, философов, писателей и художников. Винсент ван Гог и Пабло Пикассо, Декарт и Ларошфуко, Мольер и Александр Дюма, Оноре де Бальзак, Золя и Мопассан – это лишь неполный список выдающихся личностей, вырастивших свой талант на французской земле. Даже недолгое пребывание здесь выливается во что-то прекрасное. Во Франции нашли свое вдохновение и многие русские писатели и поэты: Иван Бунин, Александр Куприн, Марина Цветаева и Константин Бальмонт.<span>Архитектура Франции по-настоящему красива и разнообразна. Памятники архитектуры времен античности, величественные готические сооружения, многочисленные замки в стиле эпохи Возрождения - Шамбор, Шенонсо, Шеверни, Блуа, Азэ-лё-Ридо и другие. Версаль, Люксембургский сад и Елисейские поля в Париже. И, конечно же, символ Франции - Эйфелева башня.</span>:
Program yrok;
var a:integer;
begin
writeln ('Введите месяц');
readln(a);
if a=1
then writeln('январь')
else if a=2
then writeln('Февраль')
else if a=3
then writeln('Март')
else if a=4
then writeln('Апрель')
else if a=5
then writeln('Май')
else if a=6
then writeln('Июнь')
else if a=7
then writeln('Июнь')
else if a=8
then writeln('Август')
else if a=9
then writeln('сентябрь')
else if a=10
then writeln('октябрь')
else if a=11
then writeln('ноябрь')
else if a=12
then writeln('декабрь')
else writeln('такого месяца нет');
end.
Ответ:
переписывание текста из книги