Program untitled;
var t,t2:text;
i,a:integer;
m:array [1..50] of integer;
begin
randomize;
assign(t,'output.txt');
assign(t2,'output2.txt');
rewrite(t);
for i:=1 to 50 do begin
m[i]:=random(50);
writeln(t,m[i]);
end;
reset(t);
rewrite(t2);
for i:=1 to 50 do begin
readln(t,a);
if a mod 2=0 then
writeln(t2,a);
end;
close(t);
close(t2);
<span>end.</span>
<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
Здесь всё можно сделать через копирование части слова и конкатенации (склеивания) частей, например, так:
program z;
var str:string;
begin
str:='ЦВЕТОВОДСТВО';
writeln(copy(str,1,4)); {копировать из строки, начиная с 1 символа, 4 буквы}
writeln(copy(str,5,4)); {копировать из строки, начиная с 5го символа, 4 буквы}
writeln(copy(str,8,1)+copy(str,3,2)+copy(str,9,4));
writeln(copy(str,6,3)+'А');
end.
<head>
<title>фамилия</title>
</head>
<body>
<style>
body {
background: #c7b39b url(images/bg.jpg); /* Цвет фона и путь к файлу */
color: #fff; /* Цвет текста */
}
</style>
<img src="название картинки">
<H1>текст заголовка</h1>
</body>