mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-11 12:05:20 +01:00
10 lines
319 B
ObjectPascal
10 lines
319 B
ObjectPascal
uses sysutils;
|
|
|
|
begin
|
|
if format('>%1:*s<',[0, 12,'def',-15]) <> '> def<' then
|
|
Halt(1);
|
|
if format('>%1:*s< >%*s<', [0, 12, 'abc', 10, 'def']) <> '> abc< > def<' then
|
|
Halt(2);
|
|
if format('>%1:*.*s< >%*.*s<', [0, 10,10,'abc', 6,6,'def']) <> '> abc< > def<' then
|
|
Halt(3);
|
|
end. |