1 - Смотри картинку
2 - programm sred_geometr; правильно - program
var x,y:real. не нужна точка
writelen(' введите 2 неотрицательных числа'); правильно - writeln
Readln('x,y'); в скобках не нужны кавычки
S=sqr(x+y); должно быть не =, а :=
Еще нету end. но это, видимо, опечатка