Запиши программу на языке паскаль для y= 0, если х< =0 x, если 01 запустите паскаль и введите значение x= -12

Program Program1;
var x,y:real;
begin
write('Введите значение X:  ');
readln(x);
if x=0 then
begin 
y:=0;writeln('Y= ',y);
end;
if (x>0) and (x<=1) then begin 
y:=x;writeln('Y= ',y);
end;
if x>1 then begin 
y:=sqr(x);writeln('Y= ',y);
end;
end.

Вот программа 1задачи на C++, только возможности её скомпилировать не было:(

#include <iostream>
#include <conio.h>
#include <stdio.h>
using namespace std;
main()
{   
setlocale(0, "");   
double m;   
double k;   
srand(time(NULL));        
printf("Первое случайное число\n");     
m = rand() % 1000;     
cout << m << endl;     
getch();     
printf("Второе случайное число\n");       
k = rand() % 1000;     
cout << k << endl;     
getch();
printf("Сумма:%d",m+k);
printf("\nРазность:%d",m-k);
printf("\nПроизведение:%d",m*k);
printf("\nЧастное:%d",m/k);
getch(); 
}

А это та же, только на паскале:

program fofgogjoj;
var
a,b:real;
begin
a:=random(1000);
b:=random(1000);
Writeln('Первое случайное число равно: ',a);
Writeln('Второе случайное число равно: ',b);
Writeln;
Writeln('Сумма: ',a+b);
Writeln('Разность: ',a-b);
Writeln('Произведение: ',a*b);
Writeln('Частное: ', a/b:0:2);
end.

program ggl;
Это название программы
var  n, i, sum : integer; 
Описание переменных
a : array [1..1000] of integer;
Описание массива а (он целочиленный, в интервале от 1 до 1000)
begin  readln (n);
Начало программы, запрос значение переменной n
 sum := 0;
Присвоение переменной sum значение 0
begin  readln (n);
  sum := 0;
  for i := 1 to n do  begin  
  a[i] := random (100);    
write (a[i], ' ');   
 sum := sum + a[i];  
end;  
begin характеризует начало новой подпрограммы. Она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран.
После идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). Подпрограмма кончается.
writeln;  
write (sum / n);
end.
Вывод значения деления переменной sum на переменную n. Конец всей программы.