Нужно делать хорошее, чтобы люди не возненавидели. Надо говорить хорошими для окружающих делами
1.var a:array[1..100] of integer;
n,s,i:integer;
begin
write('Количество элементов=');
readln(n);
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]>0 then a[i]:=-a[i]
else a[i]:=abs(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
end.
Var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('введите b');
readln(b);
c:=a/b;
writeln (c);
end.
Вообще то варианты некоректны. Вы должны использовать скобки вместе с апострофами, именно апострафами, а не кавычками, т.е. все должно выглядить,например, так
Writeln('Всего было ', а,' символов');
Т.е. на экран выведиться следущее, если а получилось равно 98
Всего было 98 символов
1. k=2; a=2;
2. 2<5 - да => a=2*2=4; k=2+2=4;
3. 4<5 - да => a=4*4=16; k=4+2=6;
4. 6<5 - нет
Ответ: 6