Для первого решу,а дальше сам.... ПРОГРАММА ДЛЯ ПАСКАЛЯ!!!!!!!!!!
Program dvoechnik;
var a,b,s,p:real;
begin
writeln ('Площадь прямоугольника');
writeln ('Введите ширину');
readln (a);
writeln ('Введите длинну');
readln (b);
s:=a*b;
p:=(a+b)*2;
writeln ('S=',s);
writeln ('P=',p);
end.
var s,s1: string;
i: integer;
begin
readln(s);
readln(s1);
if length(s)<>length(s1) then
write('нет') else begin
for i:=1 to length(s) do
if s[i]<>s1[i] then break;
if i=length(s) then write('да')
else write('нет');
end;
end.
В 1 коробке ( с ленточкой ) есть кукла , во второй нет открытки