Если нужен паскаль то вот:
var a,b: integer;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);
writeln;
writeln('Периметр=',(a+b)*2);
readln;
end.
Program jkfj;
var
a,b:integer;
begin
writeln ('Введите 1-ое число');
read (a);
writeln ('Введите 2-ое число');
read (b);
if a<b then write ('Большее b')
else write ('Большее a');
if a=b then write ('a и b равны')
end.
Сакура, могут быть ошибки в знаках, но в целом вроде хорошо!
<span>Автопилот,интернет,запись на жесткий диск...</span>
Первоначальный объем сообщения = 512*16 бит = 8192
8192-4480 = 3712
Количество удаленных символов = 3712/16 = 232