//1
Var
f:text;
s,s1:string;
begin
readln(s);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
s:=s1+s;
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
//2
Var
f:text;
s1,s2:string;
begin
assign(f,'text1.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s2);
close(f);
s1:=s1+s2;
assign(f,'text1.txt');
rewrite(f);
write(f,s1);
close(f);
end.
В 1832 году ..............
А где вопрос? Ну а так все это относится к Информации.
Program aaa;
var
a,b,c,d,s: real;
begin
writeln('введите a, b, c, d');
readln(a,b,c,d);
if (a*b+c*d)>=(a*c+b*d)
then
if (a*b+c*d)>=(a*d+b*c)
then s:=a*b+c*d
else s:=a*d+b*c
else
if (a*c+b*d)>=(a*d+b*c)
then s:=a*c+b*d
else s:=a*d+b*c;
writeln(s)
end.