Viết chương trình tính và đưa ra màn hình kết quả biểu thức S= 3m2 + 4m +5 Giúp em với ạ

program oken;
uses crt;
var s,m: longint;
begin
    clrscr;
    write(‘Nhap m: ‘); readln(m);
    s:=3*sqr(m)+4*m+5;
    writeln(‘S: ‘,s);
    readln;
end.