program Project1; необходимо перенести из Pascal в Delphi

[Toxass]

program Project1;

{$APPTYPE CONSOLE}

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.
-------------------------------------------------------------------------------------
program Project2;

{$APPTYPE CONSOLE}

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);
case x of
1:writeln('V Ukraine 1235 gorodov');
2:writeln('V Avstrie 1567 gorodov');
3:writeln('V Rossii 2876 gorodov');
4:writeln('Vo Francii 2000 gorodov');
else writeln('Takoi strani v spiske net');
end;
readln;
end.

Помагите переделать на делфи7. Зарание пасиба!

[Arigato]

А что не так, почему она не будет работать в Делфи 7?

[Toxass]

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

[Arigato]

Так, вроде, она должна работать. Только не понятно, почему у Вас там 2 в 1...

[mihali4]

Крохотная переделка:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x:integer;
label 1;
begin
writeln('Vvedite nomer strani so spiska');
writeln('1-Ukraina');
writeln('2-Avstriya');
writeln('3-Rossiya');
writeln('4-Franciya');
1: 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
begin
writeln('Takoi strani v spiske net');
goto 1;
end;
end.

Иначе после второго ввода неверного значения она у вас будет "вылетать"...

[Arigato]

Лучше это циклом while делать. Не стоит привыкать к goto.

[mihali4]

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

Лучше это циклом while делать. Не стоит привыкать к goto.

Это - другой вариант
А их - бесчисленное множество... Это же - как шахматы
(Кстати, иногда без гоуту не обойтись...)

[Toxass]

она в Паскале работает а в Делфи не хочет, что нада создать и где что писать????? Подскажите пожалуйста!!!!

[Arigato]

(Кстати, иногда без гоуту не обойтись...)

Приведите пример? Вроде еще лет 20 назад доказывали, что любая задача может быть решена без goto.

[puporev]

она в Паскале работает а в Делфи не хочет,

Открой консольное приложение и все заработает.