Напишите программу, которая получает с клавиатуры натуральное число и определяет, простое оно или нет. Для этого нужно делить число на все натуральные числа, начиная с 2, пока не получится деление без остатка.

• var a, k, count: integer;
• readln \(a\); {Перед вводом, инициализируйте переменные count и k}
• count:= 0; k:=2;
• while \(k \\lt a\) and \(count = 0\) do
• if a mod k = 0 then count := count + 1;
• k:= k + 1;
• end;
• if \(count = 0\) then writeln \(a, ' \- простое'\)
• else writeln \(a, ' \- составное'\);
• end.
• begin
• begin {составной оператор}