задача по паскалю!

[Маняшаа]

Ввести 2 числа. Найти их сумму.
По заданному значению величины X найти значение Y=0, если Х=0
=Х, если Х>0 и =Х*Х, если Х<0
Из трёх заданных чисел найти наибольшее число и наименьшее. помогите с решением!

[Stilet]

помогите с решением!

Написать с нуля?

[Маняшаа]

желательно

[Вадим Мошев]

Попробуйте сами решить, что не получается, спрашивайте, поможем.

[Stilet]

var q,w,e:double;
begin
 readln(q);readln(w);
 if q=0 then e:=q else
  if q>0 then e:=q else e:=q*q;
 write(e:10);
 if q<w then begin
  if q<e then write(q,' minimum') else write(e,' minimum')
 end else begin
  if w<e then write(w,' minimum') else write(e,' minimum')
 end; 
end.

Подходит?