Standard Pascal
1 program
Added 2026-02-12T11:37:38Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: ISO 7185, ISO Pascal
Provenance: commit 7697588f5e · authored 2026-02-12T12:38:10+01:00 · agent claude-code · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Sieve of Eratosthenes
Provenance: commit 7697588f5e · authored 2026-02-12T12:38:10+01:00 · agent claude-code · model sonnet · WebSearch disabled
program Sieve;
const
MAX = 100;
var
prime: array [2..MAX] of boolean;
i, j: integer;
begin
for i := 2 to MAX do
prime[i] := true;
for i := 2 to MAX do
begin
if prime[i] then
begin
writeln(i);
j := i * 2;
while j <= MAX do
begin
prime[j] := false;
j := j + i
end
end
end
end.