Дано четырехзначное число. найти сумму квадратов второй и третьей цифры

Program zadanie;

Var a, b, c, d, S:real;

Begin

Writeln ('Введите значение четырехзначного числа через запятую (пример: 1 3 5 6) ') ;

Readln (a, b, c, d) ;

S:=sqr (b) + sqr (c) ;

Writeln ('Сумма квадратов второй и третьей цифры равна=', S)

End.