Submission #3068323


Source Code Expand

var
  c:char;
  i:longint;
begin
  for i:=1 to 12 do
    if i=4 then
             begin
               read(c);
               write(c,' ');
             end
           else
             begin
               read(c);
               write(c);
             end;
  writeln;
end.

Submission Info

Submission Time
Task A - CODEFESTIVAL 2016
User luogu_bot2
Language Pascal (FPC 2.6.2)
Score 100
Code Size 275 Byte
Status AC
Exec Time 0 ms
Memory 128 KB

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 6
Set Name Test Cases
Sample 0_00.txt, 0_01.txt, 0_02.txt
All 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt
Case Name Status Exec Time Memory
0_00.txt AC 0 ms 128 KB
0_01.txt AC 0 ms 128 KB
0_02.txt AC 0 ms 128 KB
1_00.txt AC 0 ms 128 KB
1_01.txt AC 0 ms 128 KB
1_02.txt AC 0 ms 128 KB