1 символ 1728/864=2 байта
алфавит 32*2=64 байта
var
a, b: integer;
begin
write('введите две стороны = >');
readln(a, b);
writeln('периметр = ', 2 * (a + b));
writeln('площадь = ', a * b);
end.
512 граммов
1*2=2
2*2=4
4*2=8
8*2=16
16*2=32
32*2=64
64*2=128
128*2=256
256*2=512
Ты забыл поставить ; после первого else смотри пример в учебнике.
у нас получается следующее:
if x>y then
if x=y then write ('x=y')
else write ('max=',x);
else write ('max=',y);
end.
чтобы тебе было проще, выстраивай иерархию вложенности, т.е если у тебя есть вложенное условие, цикл и другие структуры, выделяй их пробелами как на рисунке в учебнике