fork download

copy

            	var N, K, S:integer;
            begin
            read(N, K);
             while N>K do
            	begin
                if(N>100)
            		K:=K+5;
             	else
            		K:=K+1;
            	if(K<20)
            	begin
                	N:=N-11;
            		N:=N-3;
            	end;
                else
            		N:=N-3;
            	end;
            S:=N+K;
            writeln(S);
            end.

Free Pascal Compiler version 3.0.4+dfsg-22 [2019/01/24] for x86_64
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(7,15) Fatal: Syntax error, "THEN" expected but "identifier K" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Standard output is empty