Составьте программу, которая определяет, является ли данное натуральное число…

program xxx; var k, d, n: integer; pr: boolean; begin writeln ('Введите число k='); readln (k); d: =2; n: =k div 2; pr: =false; while (d <= n) and not (pr) do if k mod d=o then pr: =true else d: =d+1; if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да, число простое'); readlnend.