Правильно ли у меня написано в паскале?

Question

program qq; 
uses crt; 
var a,b,x1,x2:integer; 
begin 
readln(a); 
writeln('vvedite peremenyu'); 
for x1:=2 to 15 do 
begin 
if x1=a then writeln('pavno a'); 
if x1>a then writeln('bolshe a'); 
if x1

if x1

у меян вся программа почему-то не отображается

end; 
for x2:=10 downto 0 do 
begin 
if x2=a then writeln('pavno a'); 
if x2>a then writeln('bolshe a'); 
if x2

Алёна Калинёва · Accepted Answer

Верно, но программа не закончена. И печатать текст вполне можно кириллицей, a ne v translite)))

Каракулин Сергей · Answer

начало правильно, а что ты хочешь получить в конце программы?

Наташа Разумова · Answer

нехрена не правильно 
readln(a); 
writeln('vvedite peremenyu'); 
 
ТЫ считываеш переменную до коментария т. е ты сначала ее введеш а потом появится твой коментарий =) 
if x1 - а дальше что?

бля ну пиздец ты нормально переписать можеш?