Условие на Pascal
if x < 0 then writeln ('-');
if x > 0 then writeln ('+');
if x = 0 then writeln ('Введен ноль');
Источник_____Информационный канал_____Приёмник
32 = 2^5. Один символ 5 бит
240 Кб = 240 * 1024
240*1024*8/5 = 393216
Ответ: 393216
Var
a,b,p,s:real;
begin
Writeln('Введите значение а = ');
read(a);
writeln('Введите значение b = ');
read(b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь = ',s);
Writeln('Периметр = ', p);
<span>end.</span>