Звезды в _ галактиках образуют массивный диск и концентрирующуюся к центру сферическую составляющую

Uses crt;
var a,b,c:integer;
begin
read(a,b,c);

4.1
Var
A:integer;
Begin
Writeln ('a');
Readln (a);
If a mod 2=0 do writeln ( 'число четное')
Else writeln (' число не четное ');
End.