Приложение.

program Test;

{$APPTYPE CONSOLE}

uses

SysUtils,

Windows;

function StrAnsiToOem(aStr : String) : String;

begin

Result := '';

if Length(aStr) > 0 then begin

SetLength(Result, Length(aStr));

CharToOem(PChar(aStr), PChar(Result));

end;

end;

var

a1,np:integer;k:Boolean;

begin

k:=True;

np:=1;

Writeln(StrAnsiToOem('Пожалуйта нажмите Enter')); Readln;

Writeln(StrAnsiToOem('Версия 1.0.6')); Readln;

while (k) do

begin

if (np=1) then

begin

writeln(StrAnsiToOem('Вы Мужчина(1) или Женшина(2)')); Readln(a1);

if (a1=1) then

begin

Writeln(StrAnsiToOem('Хорошо,вы потвердили что вы Мужчина! Приятного тестирования.'));

np:=2;

Readln;

end

else

if (a1=2) then

begin

Writeln(StrAnsiToOem('Хорошо,вы потвердили что вы Женчина! Приятного тестирования.'));

np:=2;

Readln;

end else

begin

Writeln(StrAnsiToOem('нет такого варианта'));

np:=1;

Readln;

end;

end;

if (np=2) then

begin

Writeln(StrAnsiToOem('Вы проходите матиматическое тестирование, для продолжения выберите уровень и нажмите Enter. (1)Легкий уровень. (2)Тяжёлый уровень.')); Readln(a1);

if (a1=1) then

begin

Writeln(StrAnsiToOem('Хорошо, вы выбрали легкий уровень, для начала теста нажмите Enter.')); Readln;

np:=3;

end

else

if (a1=2) then

begin

Writeln(StrAnsiToOem('Хорошо, вы выбрали тяжелый уровень, для начала теста нажмите Enter.')); Readln;

np:=11;

end

else

begin

Writeln(StrAnsiToOem('нет такого варианта'));

np:=2;

Readln;

end;

end;

if (np=3) then

begin

writeln(StrAnsiToOem('Вы готовы к заданию №1.')); Readln;

writeln('3*5='); Readln(a1);

if (a1=15) then

begin

Writeln(StrAnsiToOem('Это правельный ответ!'));

np:=4;

Readln;

end

else

begin

Writeln(StrAnsiToOem('Вы ответили неверно попробуйте ещё раз.'));

np:=3;

Readln;

end;

end;

if (np=4) then

begin

writeln(StrAnsiToOem('Вы готовы к заданию №2.')); Readln;

writeln('20:4='); Readln(a1);

if (a1=5) then

begin

Writeln(StrAnsiToOem('Молодец!'));

np:=5;

Readln;

end

else

begin

Writeln(StrAnsiToOem('Вы ответили неверно попробуйте ещё раз.'));

np:=4;

Readln;

end;

end;

if (np=5) then

begin

writeln(StrAnsiToOem('Готовы ли к заданию №3.')); Readln;

writeln('(81-46)*7='); Readln(a1);

if (a1=280) then

begin

Writeln(StrAnsiToOem('Моледец это правельный ответ!'));

np:=6;

Readln;

end

else

begin

Writeln(StrAnsiToOem('Вы ответили неверно попробуйте ещё раз.'));

np:=5;

Readln;

end;

end;

33