Реализовать функцию, с ветвления g= язык pascal abc

Если я правильно понял g = sin(2*x) для x>=0 иначе g = 5* x², тогда может получиться такой код:
var x,g:real;
begin
    writeln('Введите х');readln(x);
    if x>0 then g:=sin(2*x) else g:=5*sqr(x);   
    writeln(g);
end.

Program q;
    var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
    randomize;
    for i:=1 to 7 do begin;
        for k:=1 to 7 do begin;
            a[i,k]:=random(-10,10);
            if a[i,k] mod 2 = 1 then odd+=1;
        end;
    end;
    min7:=a[1,7];
    for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
    for i:=1 to 7 do sum1+=a[i,1];
    for i:=1 to 7 do avg5+=a[5,i];
    avg5/=7;
    for i:=1 to 7 do a[1,i]:=1;
    write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.

Информатика-это наука,изучающая виды информации её получения,хранения и передачи.
География-это наука,о природе нашей планеты и о законах,по которым она живет и развивается.
Фонетика-это раздел науки о звуках русского языка
Ботаника-это раздел науки о изучении растений
Имя сущ-это самостоятельная часть речи,которая отвечает на вопросы кто? что? и обозначает предмет
Глагол-это самостоятельная часть речи,которая отвечает на вопросы что сделать?что делать? и др. обозначает действие предмета
Тяж.промышленность-это группа отраслей промышлености,производящих преимущественно средства произовдства.
Легкая промышленность-это отрасль народного хоз.,производящая потребительские товары.