Подсчитать сумму квадратов четных элементов. pascal !

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',99); a.println;   writeln('s = ',a.where(t-> t.iseven).select(t-> t*t).sum) end. пример n= 19 49 -39 -47 67 8 -10 43 -26 58 89 13 61 -98 11 8 89 44 76 30 s = 22484

Var  a: array[1..1000] of integer; n,i,s: integer; begin   write('write size array: '); readln(n);   for i: =1 to n do   read(a[i]);   s: =0;   for i: =1 to n do   if a[i] mod 2=0     then s: =s+sqr(a[i]);   writeln(s);   readln;   readln end.

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

 

 

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

#include < stdio.h>

#include < conio.h>

int main( void )

{

  int c, i;

  printf("input number: ");

  scanf(& c);   //амперсант c в скобках

  i = (int)(c%10);

  c = i*i;

  printf("answer: %i", c);

  getch();

  return 1;

}