Pascal задачки.

[Vladya]

Помогите составить, несколько программ в паскале, программы простые, но увы и жаль, мне не доходит как в нем писать что либо. Если не сложно помогите.

1. Составить программу с помощью оператора While, которая вычисляет таблицу значений функции y= -x*a+b*x/(lg x) для значений аргумента Х в интервале от 0,75 до 1,8 с шагом 0,3, где а=4,6 b=2.5


2. Составить программу с помощью оператора repeat которая протабулирует функцию для значений аргумента Х в интервале от 0,75 до 1,8 с шагом 0,3, где а=4,6 b=2.5 . Если на [0.75; 1.8] функция приобретет некоторое значиние К тогда вывести его на экран и остановиту табуляцию.


3. Составить программу которая имитирует диалог пользователя с компьютером на тему любимого певца.

Спасибо всем!!!

[werser]

program t_1;
uses crt;
var a,b,c,y,x:real;
begin
clrscr;
a:=4.6;
b:=2.5;
c:=0.75;
while c<=1.8 do
begin
y:=-c*a+b*c/lg(c);
c:=c+0.3;
Write(y:0:2);
end;
readkey;
end.

[werser]

program t_3;
uses crt;
var a:string;
begin
clrscr;
Writeln('Kakaya vasha lubimaya aktrisa?');
readln(a);
Writeln('Oy ',a,' Mne toge ona nravitsa');
Writeln('A 4to znaew o ',a,'?');
readln(a);
Write('Bydy znat 4to ona ',a,' Poka');
readkey;
end.

[maladoy]

program func;
uses crt;
const a=4.6;
      b=2.5;
	  h=0.3;
var
y:real;
x,k:real;

begin
writeln('vvedite k :');
readln (k);

x:=0.75;
repeat
 y:=(1+sqrt(b*x))/(0.5+a*sqr(ln(a*x)));
 if y=k then  begin x:=1.81; writeln( 'y=',k:4:4);end
         else begin x:=x+h; writeln('y=',y:4:4); end;
  until x>1.8;
end.

[Vladya]

Спасибо огромнейшое!!!!!!!