МОЖНО ЗДЕЛАТЬ ТАК СКАЧАТЬ ФОТО С ФРАНЦИИ НА ПРЕЗЕНТАЦИ И НАПИСАТЬ О НЁМ РАСКАЗ НАПРИМЕРФранция. Её воздух наполняет непередаваемым чувством свободы и ощущением влюбленности во весь мир. Французский язык, французская кухня, французская мода, французский образ жизни – так много причин, чтобы влюбиться в эту необыкновенную страну. Мало кто может искренне сказать, что не хотел бы побывать здесь хотя бы раз в жизни.Культурное наследие Франции не просто богато, очень богато. Франция подарила миру великих математиков, философов, писателей и художников. Винсент ван Гог и Пабло Пикассо, Декарт и Ларошфуко, Мольер и Александр Дюма, Оноре де Бальзак, Золя и Мопассан – это лишь неполный список выдающихся личностей, вырастивших свой талант на французской земле. Даже недолгое пребывание здесь выливается во что-то прекрасное. Во Франции нашли свое вдохновение и многие русские писатели и поэты: Иван Бунин, Александр Куприн, Марина Цветаева и Константин Бальмонт.Архитектура Франции по-настоящему красива и разнообразна. Памятники архитектуры времен античности, величественные готические сооружения, многочисленные замки в стиле эпохи Возрождения - Шамбор, Шенонсо, Шеверни, Блуа, Азэ-лё-Ридо и другие. Версаль, Люксембургский сад и Елисейские поля в Париже. И, конечно же, символ Франции - Эйфелева башня.:
program proga_25_1; Var A: text; i,j,n,m : byte; d: string; Sim:char; Begin write('Введите имя текстового файла '); {Например: "test" он создастся там где находится сама программа } read(d); Assign(A,d); rewrite(A); write('Введите количество строк: N= '); readln(n); write('Введите количество символов в строке: M= '); readln(m); for I:=1 to n do begin Sim:=Chr(Ord('1')+I-1); For J:=1 to m do write(A,Sim); writeln(A); end; close(A); end.