Написать программу на паскале
15

Программу?

uses crt;

var fiz,math,inf:integerl

begin

*

readln(fiz,math,inf);

if (fiz =  4) and (math = 4) and (inf = 4) or (fiz =  5) and (math = 5) and (inf = 5) then write('Ученик получит стипендию');

end.

* по желанию, можешь добавить на место звездочки write('Физика, Математика, Информатика сданы на: ');