Помогите переделать прогу из Паскаля в Делфи!

[Toxass]

var u,x,z,y:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  x:=3.128;
  y:=2.375;
  z:=1.5834;
  u:=(ln(sqr(x))+exp(sqrt(x+y*sin(z)))-x*(cos(y)/sin(y)))/(3*sqr(x)+2*y+5);
  writeln('u=',u,'z=',z,'y=',y:5:4,'x=',x:10);
readln;
end.

[Dj_smart]

var u,x,z,y:real;
  begin
  { TODO -oUser -cConsole Main : Insert code here }
  x:=3.128;
  y:=2.375;
  z:=1.5834;
  u:=(ln(sqr(x))+exp(sqrt(x+y*sin(z)))-x*(cos(y)/sin(y)))/(3*sqr(x)+2*y+5);
  showmessage('u=',u,'z=',z,'y=',y:5:4,'x=',x:10); // или другой оператор
end.

[Toxass]

Сообщение от Dj_smart

var u,x,z,y:real;
  begin
  { TODO -oUser -cConsole Main : Insert code here }
  x:=3.128;
  y:=2.375;
  z:=1.5834;
  u:=(ln(sqr(x))+exp(sqrt(x+y*sin(z)))-x*(cos(y)/sin(y)))/(3*sqr(x)+2*y+5);
  showmessage('u=',u,'z=',z,'y=',y:5:4,'x=',x:10); // или другой оператор
end.

а что ставить в форму(мемо или что??????)???

[Terran]

а что ставить в форму(мемо или что??????)???

Тут ничего ставить не надо. Это просто вывод сообщения.(К стати там ошибка и типами)
А если хотите с формой, то можно так:

Label1.Caption:='u='+Floattostr(u)+#13#10+
'z='+Floattostr(z)+#13#10+'y='+Floattostr(y/5/4)+
#13#10+'x='+Floattostr(x/10);

В данном случае нужно ставить Label.

[Toxass]

а эту прогу можете перевести также из Паскаля в Делфи!

uses
  SysUtils;
var x:integer;
begin
  writeln('Vvedite nomer strani so spiska');
  writeln('1-Ukraina');
  writeln('2-Avstriya');
  writeln('3-Rossiya');
  writeln('4-Franciya');
  readln(x);
  if x=1 then writeln('V Ukraine 1235 gorodov');
  if x=2 then writeln('V Avstrie 1567 gorodov');
  if x=3 then writeln('V Rossii 2876 gorodov');
  if x=4 then writeln('Vo Francii 2000 gorodov');
  if (x<>1) and (x<>2) and (x<>3) and (x<>4) then
   writeln('Takoi strani v spiske net');
  readln;
end.

[Terran]

а эту прогу можете перевести также из Паскаля в Делфи!

Вот на Delphi с использованием Memo и Edit.

Var
x:integer;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Memo1.Lines.add('Vvedite nomer strani so spiska');
Memo1.Lines.add('1-Ukraina');
Memo1.Lines.add('2-Avstriya');
Memo1.Lines.add('3-Rossiya');
Memo1.Lines.add('4-Franciya');
x:=0;
End;
Procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
x:=StrToInt(Edit1.text);
If Edit1.Text<>'' Then
Begin
Edit1.Clear;
Case x Of
1: Memo1.Lines.add('V Ukraine 1235 gorodov');
2: Memo1.Lines.add('V Avstrie 1567 gorodov');
3: Memo1.Lines.add('V Rossii 2876 gorodov');
4: Memo1.Lines.add('Vo Francii 2000 gorodov');
Else
Begin
Memo1.Lines.add('Takoi strani v spiske net');
End;
End;
End;
End;

[Toxass]

А у меня выдает ошибку тут

Memo1.Lines.add('Vvedite nomer strani so spiska');

[Terran]

Сообщение от Toxass

А у меня выдает ошибку тут

Memo1.Lines.add('Vvedite nomer strani so spiska');

Вы наверное не поставили компонент Memo на форму. Или у формы не указали событие FormCreate.

[Toxass]

а после вот этого кода

Procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

куда остальное вводить, что открывать??

[Terran]

Вам событие KeyDown нужно у Edit'a поставить. (Выбрав компонент Edit вы сможете найти это событие на вкладке Events)