название такое просто что бы зашли и посмотрели)))
помогите пожалуйста решить задачки.

1) даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень – положительные (число 0 не изменять)
2) определить стоимость железнодорожного билета туда и обратно, если известно расстояние до пункта назначения и длительность пребывания в нем, а также стоимость в один конец. Учитывая, что если расстояние превышает 1000 километров, а длительность пребывания превышает 7 днец, то железнодорожная компания дает скидку 30%
3) написать программу, которая выводит сумму первых n нечетных чисел натурального ряда 1,3,5..
4) написать программу которая выводит на экран значении функции у=5х2-х+2 для х, изменяющегося в диапозоне от -3 до 3 с шагом 0,5
5) напечать таблицу перевода расстояний их дюймов в сантиметры для значенийот 1 до 10 дюймов с шагом 0,5 дюйма. Формула перевода – 1дюйм=2,54см


спасибо)

Я б на твоём месте всё же переименовал тему Ты думаешь, что участники форума, увидев известный корень в названии топика, сразу ринутся помогать?

Добавлено через 13 мин.
Первая:

var mas:array[1..4] of integer;
    a:integer;
begin
  randomize;
  for mas[4]:=1 to 3 do
  begin
    a:=mas[4];
    mas[a]:=random(50)-25;
    if (mas[a]<>0) and (mas[a]<0) then mas[a]:=sqr(mas[a]);
    if (mas[a]<>0) and (mas[a]>0) then mas[a]:=(sqr(mas[a])*mas[a]);
    writeln(mas[a]);
  end;
  readln;
end.

по-моему, если бы вы последовали правилам форума, результат был бы лучше..
p.s. надеюсь остальные участники проявят благоразумие по факту ответов в подобные темы..