Есть решенная задача в паскале как сделать эту же задачу но в лазарусе

var s:string;
begin
s:='bhbhhhh';
write(s);
readln
end.

program Project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var s:string;
begin
s:='bhbhhhh';
write(s);
readln
end.
end.

program p
uses crt;
var result:real
A:integer
const reda=18;
zhelezo=10;
begin
clrscr;
write ('Vvedite kol-vo rudy v tonnax=');
readln(A)
result=10*A/18
writeln ('Iz ',A,'tonn rudy polychat',result:0:1 tonn jeleza');
end.

program n;
var
m:real;n:integer;
begin
writeln ('Vvedite massy telqa');
readln (n);
m:=0.65*n;
writeln ('Massa molekyl:',m:0:4);
readln;
end.

program n2;
var
a,b,c,d:integer;
begin
write ('Skolko deneg');
read(a);
write ('Stoimost odoi edenici tovara');
read(b);
d:=a div b;
c:=a mad b;
writeln ('Kolichestvo pokypok ',d);
writeln('Sdacha',c);
readln;
readln;
end.

procedure TForm1.Button1Click(Sender: TObject);
const reda=18;
      zhelezo=10;
var result:real;
    A:integer;
begin
 A:=strtoint(Edit1.Text);//вводим в Эдит1 целое число
 result:=reda*A/zhelezo;
 showmessage('Iz '+inttostr(A)+' tonn rudy polychat '+floattostrF(result,ffFixed,5,1)+' tonn jeleza');
end;

end;
end.