Program Archi;
uses crt;
var
x:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите x: ');
readln(x);
writeln('При х=',x,'');
writeln('3sin(sqrt(3))+0,35x-3,8 = ',3*sin(sqrt(3))+0.35*x-3.8:0:3);
end.
Program abc;
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.
1. 16-57, 8-127, 2-1010111
2. 58
3. 817