begin string end

1
2
3
begin
a:='string';
end;