Составить следующий алгоритм. видите число. если даное число отр, то умн. ево на 10,если полож то отнимите от него 3

var
i : integer;
begin
ReadLn (i);
if i < 0 then
i := i * 10 else
i := i - 3;
WriteLn (i);
ReadLn();
end.

Как то так.

а алгоритм то на чем составить?

Считываем число
ЕСЛИ число < 0 то умножаем его на 10
ИНАЧЕ ЕСЛИ число > 0 то отнимаем от него 3

Вот это - алгоритм ( между прочим, в условии не рассмотрен случай число = 0 )

Я бы посоветовал для начала научиться грамотно по-русски писать, а уж потом все остальное.