Вот ниже прикрепил, посмотри и картинка и скрипт
Var bads = ["Жадина – говядина,Пустая шоколадина.", "Ябеда, ябеда! Ябеда – корябеда!", "Обманули простака – На четыре кулака"];
var rand = Math.floor(Math.random() * bads.length)
alert( bads[rand] ); // вывести
1) Подключить приставку к компьютеру при помощи мини USB-кабель,
2) Подтвердить запрос на экране приставки на передачу данных через USB.
3) Осуществить поиск игр в интернете посредством любого интернет-поисковика (для поиска необходимо заранее определиться с форматом игр, и задать в поисковике какой именно формат игр скачивать, например «скачать игры mega drive»).
4) Скачать архив с играми на компьютер.
5) Разархивировать его.
6) Скопировать c заменой (при необходимости) скачанные и разархивированные игры в папку "Game" (или в папку с соответствующим расширением игр).
7) Отключить приставку от компьютера.
8) Зайти в папку "Game" (или в папку с соответствующим расширением игр) и запустить скачанную игру.
ПОКРАЙНЕЙ МЕРЕ ПРОЧИТАЛ В ИНТЕРНЕТЕ))
Begin
var a:=ArrRandom(10,-150,250); a.Println;
var max := a.Max;
println('Максимальное = ', max);
a.Transform(t->t=max ? max*(-1):t);
a.Println;
end.
3. program n3;
uses crt;
var b:integer;
begin
write('Введите число ');
read(b);
writeln(b);
<span>end.
4. </span>program n4;
uses crt;
var c:real;
begin
write('Введите число ');
readln(c);
c:=c*2;
writeln('Ответ равен 'c);
<span>end.
5. </span>program n5;
uses crt;
var y,z,x:real;
begin
write('Введите число ');
readln(x);
y:=5.5;
z:=x-y;
writeln('Ответ равен 'z);
<span>end.
6. </span>program n6;
uses crt;
var y,x,z:real;
begin
write('Введите число ');
readln(x);
y:=2.5;
z:=x/y;
writeln('Ответ равен 'z);
<span>end.</span>