<h3>Первый вывод: 2</h3><h3>Второй вывод: 2 2</h3><h3 />
1) 8 бит это весит обычно 1 символ
2) 70*8*30*5=8400 бит
1.точку после Энда ставить нужно
readln(a);
readln(b);
2.c:=a*b;
3.writeln('proizvedenie a i b ravno,c);
4.Readln(c);
Противный случай - это то же самое, что в другом случае или на языке информатики "иначе".
По-моему, в вашем случае "противного случая" нет, т. к. все возможные значения х учтены в первых случаях: число х может быть меньшим 0, большим 0, или равным 0. Но, если не придираться к условию, то программа выглядит так:
program funkciya;
var x, y: real;
begin
write('x='); readln(x);
if x<0 then y:=sin(sqr(x)) + 2*x
else if x>=0 then y:=sqrt(x)+sqrt(sqr(x)+1)
else y:=cos(x);
write('y=',y:5:2)
end.