нужно немного отредактировать

[Stipe]

........{Пх+lgx(в квадрате) при 0<=x<=1.5
y= {a+x при х=1.5
.......{e(в степени х)+ tgx при х>1.5
x [0.3 25]
дельта х=0.5



вот что у меня получилось

program abc
uses crt;
var pi,y: real
x,a integer;
begin
clrscr
write ('vvedite a');
read (a);
x:=0,3;
repeat
x:= x+0.5;
if 0<=x<=1.5 then y:=Pi*x+ln sqr(x);
if x=1.5 then y:= a+x;
if x>1.5 then y:= exp(x)+ tan(x);
until x>25;
end.

как то так) ооочень мало что в этом понимаю, поэтому помощи

[invizor]

Что должна выводить программа? x=1.5 не достигается, т.к идет от 0.3 с шагом 0.5 (x:=0,3 не пропустит, если имел в виду десятичную дробь, пиши в точку). Зачем присваивать y значение в цикле, не выводя и не используя предыдущий результат? Вообще хотелось бы подробнее узнать условие задачи.